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I1SE0F FLOW CHART SYMBOLS 


Processing 





© 

qp 

^ Terminal ^ 


A group of program instructions that performs a processing 
function of the program. 


Name or description of a subroutine, or parameters used by a 
subroutine, that is shown in detail on some other flow chart of 
the same phase. The entry point of the subroutine is given in 
the upper division of the box. 


Name or description of a subroutine, or parameters used by a 
subroutine, that is shown in detail on some other flow chart of 
another phase. The entry point of the subroutine is given in 
the upper division of the box. 


Name or description of subroutines that are part of the 
compiler interface. 


Any function of an input/output device. 


An instruction or group of instructions that changes portions 
of a routine or initializes a routine for given conditions. 


Points in the program where branches to alternate processing 
are made based on variable conditions, program switch settings, 
and test results. 


On-page connector. An entry from, or exit to, another block on 
the same flow chart. The characters in the connector identify 
the corresponding entry or exit on the flow chart. 


Off-page connector. An entry from, or exit to, a given point on 
another flow chart. The characters in the connector identify 
the flow chart and the block therein. 


The beginning or end of a phase and the entry points or exits 
of a subroutine. 








COMPUTE 

STACK 

ORIGIN 


( 


READ 

TWO 

BUFFERS 


INITIALISE 
THE RETURN 
STACK 


PUT OUT THE 
LAST TWO 
« BUFFERS » 




CHART 


DC 


IJXD05 


GENERAL FLOW 












■ A3****- 
FETCH 



**B3**»**»* 

* SAVER * 

* SAVE RETURN * 
* ADDRESS * 

* * 


■»*««*C3********** 

* RO = 12 * 

* RIO = ACTION1 * 


♦*D4***** 

RETURN 


FETCH 
LENGTH IN 
RO 


FETCH 
ACTION IN 
RIO 


*G3****« 

RETURN 


CHART OD. IJXD05 


FETCH ROUTINE 
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( 


MODIFY STACK 
POINTER 
SP = SP-18 


CLEAR STACK 
ELEMENT 
XC 0 ( 18» SP ) . 
0 ( SP) 


* INITIALIZE 

* TP AND SP 

* (TA8LE AND 
•STACK POINTER) 


IS SP 
OVERLAP 
WITH 


*E2. 

RETURN 


ACTIVATE 
THE SKIP 
ROUTINE 


( 


STACK OVERFLOW 


CHART OJ. IJXD05 


MAIN ROUTINE 


















****A1**» 

ACTION!* 


SET COMPAR IS. 
SWITCH 
TRUE 


SAVE 

RETURN 

ADDRESS 



X 




X 

* CHECK SP * 

* MODIFY SP * 

* AND CHECK * 
*STACK OVERFLOW * 

***»C2****«**«* 

* ACT ICN15 * 

X 

*«««*C3***'******* 

* INITIALISE * 

* SP AND TP * 

*ACTIONIO »1112 8 * 

X 

*****C5********** 

* ACTION 1 * 

*-*—*-*-*-*—*-*-* 

* STACK * 

* OPERAND * 



‘x... 



X 

* MOVE IS ** 

* STACK THE * 

* INPUT ELEM. * 

* * 

*********** 


X 

*-»D3******* 

* MOVE ID * 

* MOVE INPUT * 

TO OUTPUT 


X 

*****D5********** 

* MODIFY CONST. * 

* POINTER * 

* T P=T P+22 * 

X 

*****E1********** 

* MOVE THE * 

*A VA ILABLE ATT. *X.. 

*DK * 

* El* 

X 

******** 

* RETURN * 


X 

**E5******* 

* MOVE IS * 

* MOVE CONST. * 
TO CONST. TABLE 

* * 

* TO 12(SP ) * 

* !£**I*** E *ii * 



X 

****F1********* 

* RETURN * 


* ACTION 2 * 


***F5»****« 

* RETURN * 

*************** 



X 

. *. 

G3 *. 

.* *. 

** *’* YES 

*****G4********** 

* EXPONENT * 

...X* GO TO *.... 

* * 
...•X* RETURN * 



*‘*NO 

* EXPONENT * 

* ROUTINE * 

***************** 




X 

•*«**-*H3 ********** 

* LOAD ADDR. * 

* OF NO. FUNC. * 

* TABLE IN RS * 





X 

*****J3********** 

* SET E5-OP * 

* OUTPUT *__ 

*****J4********** 

* ACTIONCO * 

*—*—*—*—*—*—*—*—* 
...X* CONSTRUCT *.... 

....X* RETURN * 



* SWITCH * 

* E 5-ELEMENT * 

***************** 



CHART DK. IJXD05 


ACTION S 
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ACTION 3 


COMPUTE NO* 
Nl,N2,MO* 
Ml AND M2 


CALL ROUTINE 
DEPENDING ON 
INPUT ELEMENT 


CHART DL. IJX005 


ACTION 3 









***A3 ; 




* ACTION 5 * 


«*B3*»***** 

* SAVER * 

** SAVE RETURN * 
* ADDRESS * 


X 

*C3*****« 
MOVE 11 

*SK IP 
INPUT 
ELEMENT 


#*«#*D3*«******* 
« ACTION50 

* ’process 

* CALL 

* STATEMENT 



RETURN 



CHART DM. IJXD05 


ACTION 5 


lo 












****A1**« ****** 

* ACTION 4 * 


* ACT ICN 6 * 


SAVE LEVEL 
NUMBER AND 
BLOCK NUMBER 


COMPUTE 
NO,N1—MO, 
Mi — 


MOVE CHAR. 
VECTOR TC 
DATA 


CONVERT TC 
INTEGER IF 
NEEDED 


* DETERMINE 
•THE PREC.AFTER 

* CONVERSION 


*J1*«*** 

RETURN 


CONSTRUCT 
SUB-MACRO 
AND PUT CUT 


STACK 

INDIRECT 

REFERENCE 


CHART ON. IJXD05 


ACTION 4-6 
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*A3***« 

£309 


CALLSW= 

GtNTARl- 

GENTAR 


*»*#-Cl****** 

* 

* ACTIQN50 


*D1***** 

RETURN 


RESTORE 
NC»N1 FROM 
NSAVE 


»«<Hf*Fl******* 

* GENERATE 

* CALL MACRO 

* E5 


* RESTORE RC 


* MODIFY SP TC 
#POINT TC FUNC. 

* NAME 

* SP = S P + MQ 

* R0=N+1 


F2 




R0-1=0 . *X . . . . * F2 

** *NC 


RESTORE RC 


* XSE12T0 C C SP J *X. 


YES .*IS AN ARRAY* 


X2692T0 0<SP) *X. 


IS 

A CONST 
(E9) 


• *N0 
J 3 *. 

ENTRY 




...* X3612T0 C(SPI *X. 


YES .* IS *. NC 

....*. CHAR CONST 

*. (ED) .* 


GENERATE 
LASEL CONST. 
ASSIGNMENT 


CHART DO. UXD05 


ENTRY NAME CALLS 
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< 


****A3********* 

* ACTIONCO * 


* *B2* * * * **■ 

* MOVE 11 

SKIP 
» TEXT 

* ELEMENT 


DETERMINE 
NO »N11N2 * MO i 


CHECK IF 
ARGUMENTS 
ARE ENTR. 


****A5«***»***« 

* ACTION 12 * 


«B4*«****** 


FI=X2133 
E5=A(T21-80 ) 
ACTIONC1+1 
= X2E33 



PSEUDO *. 
SUBSTRING .* 
FUNC. .* 


*”*YES 


PROCESS 
OPERATION 
OR FUNCTION 


DETERMINE 
PRECISION AND 
OP.KEY 


DETERMINE 

THE 

KEY 


< 


*G1*«*** 

RETURN 


PUTCUT SET 
TRUE MACRO 
* (33) 


*«*J2«**** 
RETURN 



CHARI DP. IJXUQ5 


PROCESSING OF OPERATIONS 
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***«A3********* 

* ACTION 8 * 


SAVE 

RETURN 

ACDRESS 


.* VARIABLE 
. ALREADY 
*. ALLOC. 


UNSTACK 
FROM DO- 
STACK TO STACK 


CHART DQ. IJXD05 


VARIABLES FOR DO 
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( 


«*«F3***»*** 

ACTION 2fc 


**G2**«*«** 

ACTICN 27 


***#H2*»«»«*** 

*• 

STACK W.S 


(9) WITH 


CONES. ATT 



STACK REG-FL. 
6 WITH 
THE CORRES. 
ATT. 


.X* MOVE I-ELEM. 

* TO OUTPUT 
* BUFFER * 


•***J3**»*• 

RETURN 


•ACTION 16»22,23* 


CHART OR. IJXD05 


ACTIONS 16,22,23 ,24,2b AND 27 
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/f~*\ 


****A3»***«*«* 
ACTION 18,29 


X 

D3* '* 

.*'* DO- 
*. END- 
*, MACRO 

*’*NO 



**OA*^>***** 

* MOVE 11 * 

X* SKIP INPUT *. 
* ELEMENT * 


*****05********** 

* DSGEiN * 

X* GENERATE WS * 

* FCR DC-VGR. * 

* C WITH UNKNOWNS)* 
***************** 


DO- 

START- 

MACRO 


* * *YES 





*G3**»** 

RETURN 


CHARI DS. IJXD05 


PROCESSING OF MACRO i INPUT 1 
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{ 


PUT CUT 
BRANCH TC 
LAS-VAR. 


*E2 * 
RETURN 


* BRANCH *. YES 
IN THE SAME 
BLOCK .* 


PUT OUT 
* SIMPLE 
BRANCH MACRO* 


GENERATE AN 
ASSIGNMENT 
LABEL MACRO 
TO (Ei;>C>08) 



( 

CHART Die IJXD05 GO TO 
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*B1**** 
E3C3 




155 DYNDUMP 
LIBKEY TO 
DATA 2 


NOTE. . 

N MUST BE 
DECREASED 


«***B2«**»*** 

E305 » E306 


**»*C2***»* 
* RETURN 


*** *D2 ****** ** * 
* E30F 

**•****•**••««* 


***«*E2******* 


**B3*»**<* 

E3C7 


CLEAR 

PICTURE 

BYTE 


**F2***«* 

E30B 


««G2****** 

RETURN 


* R1 = A(DAT A) 


*D3»**** 
RO= 3 


• «**B4******** 

E3C8 


****C 4* ******* 
R1 = A(DATA) 


*************** 


*D4******** 

RC = 3 


MOVE 
ELEMENT 
TO OUTPUT 


*F3********* 
RETURN * 

******** 


MOVE 
ELEMENT 
TO OUTPUT 


****F4******** 

RETURN 

************** 


CONTINUE 

IN 

ACTION2 


*K1****» 

RETURN 


CHART DU. IJXD05 


STATEMENT IDENTIFIERS 
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( 


CHECK IF 
ENTRY 
OP. 


* LEFT. *. 
OP. IS 

*CHAR. CONS.* 


< 


F 3 *. 

.* LEFT *. 

OP. *. 
VAR. WITH . 
- UNKNOWN .* 

*.ATT. .* 

* *NO 


GENERATE NAME 
AND STACK 
ATTRIBURES 
TO DO 


HA *. 

.X*I CONVERSION 
*‘*NO 


PUT OUT 
ADD. REQ. 0 


GENERATE 
LAfcEL CONST. 
ASS. 


«K5***** 

RETURN 


( 

CHART DV. IJXD05 ASSIGNMENT 
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DSG 


*A3*»* 

E310 


PREVIOUS «. YES 
OP- IS 

. COMP. .* 


GENERATE 
BRANCH ON 
CONDITION 


RETURN 


SAVE 
R4 = 

FLOOR(RO+15) 


*Dla***«* 

RESTORE 


R4=R 


* « * D 3 * * * * * 
RETURN 


FI 

R4 =0 


" *NC 



X 


* GENERATE t 
.* DS * 



CHARI Dti. IJXD05 


IF AND GENERATION OF DS 
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( 


< 

CHARI 


« CONVERT * 



*«B3«****** 

* SAVER * 

* SAVE RETURN * 
* ACDRESS * 


c_ X 


1 POINTS TO 
1- ARGUM- 
IN STACK 


*F3********** 
RG=R0-1 * 

#*•»*****•»*«■»* 


G3 * 
R0=0 


-<nf*«*H4**** 


SELECT TYPi 
FROM CCNV. 
MATRIX 


R1=R1-18 
FETCH NEXT 
ARG. IN STACK 


STORE REQ. 
TYPE IN 
STACK 


OX. IJXD05 


CGNVERSION 


21 














>A3**** 

COMMON 


R3 = NUM. 
OF OP. 
CONTROL THE 
RESULT 


THE RES. 
.INDEP. OF.* 
*.ARG. .* 


DETERMINE 
COMMON TYPE 
OF hIGHEST 
CHARACT. 


*E4***»* 

RETURN 


DETERMINE 
THE PREC. 
OF THE OP. 


*G3***»* 

RETURN 


CHART OY. IJX005 


DETERMINATION OF COMMON TYPE 
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< 


*A1** 

PG 


DETERMINE 
P,Q,L AND 
P-Q FOR 2. □ 


»**A 3********* 
PG * 

***«■*«*«•***■»** 


*B3********** 

4 =■ 15(R1) * 

5 = 16( R1) * 

( P» Q ) * 


DETERMINE 
P,CrL AND 
P-Q 


*#***C1********** 

* STORE PiQt L * 

* AND P-Q * 

* FOR 2. OP * 

* IN LPQ2 * 


Dl********** 
R1 = Rl+18 * 


***«*C3********** 


*«-**•***■» 


STORE P,Q,L 
AND P-Q IN 
LPQI 




**D5 

RETURN 


DETERMINE 
P,Q,L AND 
P-Q FOR 1. OP 


< 


INSERT NUM. 
OF ARG. IN 
R3 


***G1********* 
RETURN * 



CHART DZ. IJXD05 


COMPUTATION OF P,Q AND L 
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RETURN 


3E MOD. 

IF LONG «* 
*.FLOAT.* 


*C5***»* 

RETURN 


*«*E3****« 

RETURN 


***«D5®**** 
.X* RETURN 



CHART EA• IJXD05 


MACRO KEY MODIFICATION 
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( 


< 

CHART 


a*A3******* 
MOVE DATA 


STORE NUN. 
OF ARGUM. 
IN NO 


.* NO GT 12 


MO= NO* 18 
Ml = Nl*18 
M2= N2*18 


•»■»•** E 4* *•»** 
RETURN 


EB ® 1JXD05 


DETERMINATION OF N*N&1 f N-l 
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****B3********* 

* CETERMIN * 


**C3******* 

* SAVER * 

* SAVE RETURN * 
* ADDRESS * 


*D1***** 
RETURN 


**E1* 
DETERMINE 
AND 
TEST 
LENGTH 
OF STRING 


* MOVE MASK 

* FOR NO- 
*POINTER RESULT 


***F1******** 
NOTE.. 
SOURCE 
AND TARGET 
ARE STORAGE 


**F3****** 
NA = 

INTERNAL 

NAME 

OF 

FUNCTION 


MOVE 

ATTRIBUTES 
TO RESULT 


***H1***** 

RETURN 


*G4***»* 

RETURN 


H2 

COMPARE 


* IF OR * 
ARITHMETIC 
“.OPERATION.* 


.ARITHMETIC 


DETERMINE 

MACRO 

KEY 


MOVE 

ATTRIBUTES 
TO RESULT 


COMPUTE 
> Qt L FOR 
1 OPERAND 


INSERT 
ATTRIBUTES 
OF RESULT 


COMPUTE 
PiQiL FOR 
2 OPERANDS 


CHART ED. IJXD05 


FETCHING. ROUTINE FOR PRECISION 
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CHECKENT 


R1 POINTS 
ON THE LAST 
ARGUMENT 


C3 X 

* RO=N0+l * 



RO=RO-l 


< 



****E4********* 
X* RETURN 


*#***F4«•*«*#*«*• 

* XS612T0 

» 

* STACK 

* 


*F5****» 

RETURN 



CHART 


EE 


IJXD05 


CHECK OF Efv/TRY CALLS 














fl*«*B3******* 

PRECISION 


.* R3=R5 *. YES 

.AVAIL. = REQ. .*.... 
*. TYPE .* 


*»**C4**»** 
...X* RETURN 


STORE RP, 
RG AND 
RL 



RETURN 



CHART EF 0 IJXD05 FETCHING ROUTINE DETERMINING 
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( 




«A(R£SULTEX-15) 


CHART El. IJXD05 


PRECISION ROUTINE 





















**A3******* 

P134/P138 


*E4******** 

RC = N 


COMPUTE * 
MAX(QXtQ2)=Q3 *X. 
MAX(P—Q)=P3 * 


P= MAX( PI) 


X 

**J3******* 

RESLEN 

CETERMINE 
LENGTH 
OF RESULT 


****J4**»** 

RETURN 


CHART EJ. IJX005 


PRECISION ROUTINES 


3o 



















( 


MOVE KEY 
X 7A TO 
DAT A + 2 


SAVE 

RETURN 

ADDRESS 


MOVE KEY 
X 7C TO 
DATA+2 


85 

1. ARG. 
*'*YES 


MOVE KEY 
X 76 TO 
DATA +2 


COMPUTE AND 
CHECK INT. 
CONS. ARG. 


*D2 «»*** 
RETURN 


*E1***** 

P 1260 


CALL ROUTINE 
TO DETER. 
PRECISION 


♦D4***** 

RETURN 


MOVE KEY 
X 78 TO 
DATA +2 


CALL ROUTINE 
TO DETER. 
PREC. 


( 


*G1**»* 

R5=G 


( 


CHART EK. IJXD05 


PRECISION ROUTINES 
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CHART 




*A3***» 

P168 


*A5*®*« 

P162 


**B2«««* 
PI 60 


***B4**-»** 

RETURN 


KEY4 MCD+3 
= 220 
Rl = SP 


SP =18 ( SP) 


KEY4 MOD + 3 
= 212 
R1=SP+18 


SAVE RETURN 
ADDRESS AND 
* R1= SP * 


KEY4 MOD 
MODIFY KEY 


COMPUTE 
P+1 AND 
G 


X 

**G2«**«* 

RESLEN 


*F3«**** 

RETURN 


COMPUTE MIN 
(P-Q+1,1) 
< 2=0 


**H2*»*«* 

RETURN 


**H5 **** 
P163 


♦J4**** 

P165 


€ 

EL . IJXD05 PR EC 1SIGM ROUTINES 
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( 


< 


*«.*A3****«**** 

» MOVE CON * 


B3 X 

* CON = 255 * 



.* (MSP) *. YES * 

*. VARIABLE .X* RETURN 


BIN. 

FIX OR 
DEC 

*. FIX .* 


***-*D4****« 

RETURN 


*E4****» 

RETURN 


MOVE CONST. 
TO 

CONSTANT 


* CONVERT TO 
♦BINARY INTEGER 
» IN RO 


• •H3»*****«- 
00 TO CON 


♦Kl***** 

RETURN 


01 CCN ,1 *X. 



CHART EH ® 1JXD05 


BINARY INTEGER CONSTANT CONV. 
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CHART 





CHANGE **- 
OPERATION TO 
EC. 


IS 

THE EXP. 

.A CONST. . 
*INTEG..* 


* MOVE FUNCTION * 

* NAME 150 * 

*(SHORT ** SHORT)* 


■**•** *G2********** 
*148 TO DATA + 2*X 



*149 TC DATA + 2*X 



EN. IJXD05 EXPONENTIATION 
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IJXD10 


X 


INITIALIZE 
POINTER 
SAVE AREA 


INITIALIZE 

TABLE 

AREA 


**E3* 

READ INTC 
INPUT 
BUFFER 


**F2**«*«* 

SCAN 

INPUT 

TEXT 


ACTION 
REFERING TO 
TEXT ELEMENT 


CHART EP. IJXDIO 


GENERAL FLOWCHART 
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'CHART 



MOVE OPERAND 
TO STACK 
LENGTH=18 



* ACTION5»12 * 


X 


NO 


SWA5=0 


YES 


X 


‘BA********** 
SKA5=15 * 


*-»CA******* 
TAKE N= 
NUMBER OF 
OPERANDS 


X. 

X 


■»*DA-»****** 
TAKE NEXT 
TEXT 
ELEMENT 


***E4******* 
X=DETECTED 
KEY-X3E03 


G3 

n lt o Ex¬ 


action 

REFERING TO 
TEXT ELEMENT 


N=N-1 



*«*«*H3******»*»* 
* PREMAC * 

» * CONSTRUCT * * 
« PREMACRGS * 




SWA5=0 



RETURN 


«»»«»*«»»»»•«#» 


EQ» IJXDIO ACTION 5*12 
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GETST 


X 

*-mnt«b3*«******** 


YES .* END 

. OF FREE 

*. CHAIN 




* « 
* 4( 4» SPS)=C * 



F3 X 

* 0(R4)=SPB * 



a * * * * G3 * * ******** 
X* SPB=C'( R4) * 


a««a*H3********** 
* 0 (R4)= SPA * 



SPA=R4 



»***K3********* 
RETURN - 


CHARI ER• IJXDIO 


GETSTACK 
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CHART 





REQUEST 



* MOVE 2 BYTE * 

* ARGUMENT * 

* TO DATA! * 


RESERVE IN 
REGTAB 
(R3 POINTS 
TO IT ) 


0(Rl)=X5)EFa 


STORE STACK 
ENTRY IN 
Q(R1 ) 


STACK R3 
STACK FREE 
MASK 


**«*K3*****« 

R1=SAVE1 



ES. 1JXU10 REQUEST 
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< 


****A2**»*«*«** 

* FREE * 



X 

**B2*«*«*** 

* SAVER * 


* FREE REGTAB *X 



X 

****G2«»*«***** 

* RETURN * 


1 

CHART ET. 1JXD10 FREE 
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MOVE THE CCR- 
CHOR.VECTOR 
TO DATA 


*ADDRESS OF RES.* 

* AND FREE MASK * 
*TO R4 (FOR ODD « 

* REG.)XaBF4G3 * 


MOVE THE 
ARGUMENTS TO 
DATA 1 


.* IS *. NC 

*.EVEN REGISTER.*... 
*- FREE .« 


MOVE ADDRESS 
C'F MASK4 AND 
MASKS (RES. 
+FREE)IN R4 


♦RESERVE FETCHED* 


MODIFY LENGTH * 

A NEWWORCl+l, *X 
LENGTH * 


*****F2******** 


#*#»E4********* 


.X*R3=A(REGTAB-4) 


INSERT UNSUC. 
COND.MASK 
IN R2 


a**® *G4********** 


.* END *. 

. CF REGTAB ,*X. 
IS REQUIERED* 


**»K2*»*«****** K3 *. 

ACTIC(R5) « .* *. 

*_*_*_*_*_»_«_<* YES . * CHECK IF *. NC 

CALL ACTION *X..*. FETCHED IS 

(R5) *SUCCESSFULL*. SUCC. .* 




CHART fcU. IJXD10 


FETCH ANO SACTIONX,FACTIQNY 


4o 









































« 


< 

'CHART 


****A3******»** 

* SACTION Z * 



**B3******* 

* SAVER « 

* SAVE RETURN * 
* ADDRESS * 


SAVE OCCUP. 

POINTER 
OCCUP YC ! = R3 


* SAVE RESERVE 

* ANC FREE 
*MASK IN MASK45 


MOVE REGISTER 
OPERAND IN 
STORE MACRO 


MOVE 

MACRO KEY 
TO MAC 


*G2»**** 

RETURN 


RESERVE 

FETCHED 

REGISTER 


SAVE NEW 
POINTER 
0CCUPY1=R3 


MOVE ADDRESS 
OF RESERVE 
AND FREE MASK 
IN R4 


MOVE OFFSET 
OF SAVE WORD 
IN THE MACRO 


EXCHANGE 
QCCUPYO AND 
OCCUPY1 


tV. IJXDIO 


SACTIONZ 
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*«***D3********** 

* HOVE CORRESP. * 
X * DATA * 





* MOVE SUCCESS. * 


* MASKS TC 


* R2 AND R5 * 





F3 *. 

IS ***. YES 
*.FETCHED FREE 


* ACTIO(R5J » 
X» CALL ACTION * 


X« RETURN 


* *NO 


*««*****»«»»«#«*» 

X 





CHART EW. IJXUlO SACT10N7 
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* MOVE REQUIRED 

* TYPE TO TREQ 
*TREQ='H DELINK) 


* «*C1 ***■»**• 


FREE 

MASK 

01 


MOVE STACK 
ADDRESS 
IN WORDX 
R3 = REGTAB 


YES .* CHECK 

IF WORKING 
*- STORAGE . 
*.3EF3 .« 


CHECK 
IF DEC.OR 
. WS.REQ. . 

*.xaoca.* 


RETURN 


( 


IS 

FIXED 
.REG REG. 


IS 

FLOAT 

REG 

.REG. . 


R4=2l1,R4) 
(R TAB) 
14,17,18 


*F3«********* 


•»«*»***** 


#***H3*****«**** 

R4 = * 

A(QT AB + 6 ) *X. 

«**««**•**#**#*» 


< 

CHART EX. IJXD10 GETGP 
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*EY * 
* A3* 


**L3*»»*** 

R4=R4+6 



****F1* 

* RETURN 


**G2 ********* 
RETURN * 


.* REQ. * 
. TYPE AMD 
•.AVAIL ARE.* 
•.IDEM .* 


*****H3« 

* SAVE f 1 < 6» R1 ) 
*MCVE MACRO KEY 

* (FOR STOKING) 

* MOVE REQUEST 

* OP2 = OP 



a*********** 




* \£k CP * 

CP=XDE82 
*IS FETCHtD.* 
*. A REG.* 



X* R5 = A ( LP i ) 





CHART EY. IJXDIO 


GETOP 


44 

































CHART 


« PREMAC 


***»B3******** 

SET SWITCHES 
ADLACO=G 
A DNOCG= 8 
ADCHAT = C 
ADBUMY = 17 


C 4 *. 

-X*I* ASSIGN 


TEST IF 
6-KEY ANC 
CHANGE CP. 


X = Y 
** «NC 


CONVERT 
OPERAND 
FROM Y TO 


D3 »X... . * 


Z2=Z2+18 

1 = 1-1 

Z1=TABCRG 


**J2****«* 
ADLACO=D 


* PROCESSING 

* OF 

* ASSIGNMENT 


REQUEST 

ADDITIONAL 

OPERANDS 


CONVERT 
FLOATING P. 
OPERANDS 


CHANGE OPER. 

TO REQUIRED 
STORAGE-TYPE 


CUTPUT-BUFFER 


GF. IJXOIO 


PREPARATION OF MACROS 
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CONVERT 


****»B3 



S=Z2 


REQUEST 
OPERAND 
L BYTES LONG 


LENGTH L 
IS GIVEN BY 
S + 14 


DETERMINE 
V AND W 
IN COTAB 
V f W = F(X»Y) 


*****E1******** 

* DETERMINE 

* Y2IN ROUTAB 

* Y3=F(W) 

* Y =Y3 
*************** 


REQUEST 
OPERAND 
1 DOUBLE WORD 




REQUESTED 
OPERAND^ 
TARGET FCR 
CONVERSION 


DETERMINE 
ATTRIBUTES 
IN ATAB 
AT=F(W) 


INSERT 
ATTRIBUTES 
INTO TARGET 


FROM BYTE 14 
GF OPERANC 
TO TARGET 


DETERMINE 
P» Q» L OF 
TARGET 


*H1«**** 

RETURN 


REPLACE 
OPERAND BY 
TARGET OF 
CONVERSION 


PROCESS 
1 STEP OF 
CONVERSION 


TARGET OF 
ASSIGNMENT 
= TARGET FOR 
CONVERSION 


TARGET KILL 
BE USED AS 
SOURCE FOR 
NEXT STEP 


Z=ADNCC5 

ADN0C5=0 


X 

*GH* 


CHART GG. IJXDIO 


CONVERSION OF OPERANDS 
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< 


CLEAR FIRST 
BIT OF 
X AND Y 


SET SWITCHES 
ADLACO=15 
ADN0C6=0 


MOVE 

TARGET TC 
SOURCE 


*E3*«**« 

T = Z2 


X 


( 

CHART GH. IJXOIO ASSIGNMENTS 
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CHART 


****A3******* 

ACASSI(O) 


**A4*-»***** 
ADASSI(2) 


CONVERT 
SOURCE FROM 
Y TO X 


YES .* IS 

_*. TARGET 

*. SHORT 


IS 

SOURCE 

SHORT 


SET MACRO 
KEY FOR 
SHORT FLOAT 
ASSIGNMENT 


SET MACRO 
KEY FOR 
SHORT TO LONG 
ASSIGNMENT 


SET MACRO 
KEY FOR 
LONG FLOAT 
ASSIGNMENT 


SET LENGTH 
OF MACRO 
= 16 


MOVE SOURCE 
AND TARGET 
TO MACRO 


MOVE MACRO 
TO OUTPUT- 
* BUFFER 


*«*K3*»**** 
RETURN 
********** * 


GI. IJXDIO 


FLOAT ASSIGNMENTS 
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ADASSH 1 ) 


CCNVERT 
SOURCE 
FROM V TC X 


X 

*****C3******** 

* CV36 

* BUILD MACRO 

* FOR BINARY 
•FIXED ASSIGNM. 



RETURN 


G J • 


CHART 


I-JXOIO 


BINARY FIXED ASSIGNMENT 










-*#** A3********* 

* ADASSK3) * 


CCNVERT 
SOURCE TC 
DEC. FIXED 


SET MACRO 
KEY FOR 
FIXED DEC. 
ASSIGNMENT 


CHARI GK. IJXOIO DECIMAL FIXED ASSIGNMENT 


5o 






( 


( 

CHART 


»*»*A2*******«* 

* ADASSI(4) * 


* ADASSI(8) 


ADASSI(11) 


SWITCH 
ADASCO 
= 15 


SET STORAGE 
TYPE OF 
GWO TO 0 


LENGTH OF 
GWO 

L=FLQOR(P+2 
/ 2) 


GL. IJXDIO 


ZONED AND NUMERIC ASSIGNMENTS 
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CHART 



**A2***«**« 
ADASSI(6) 


***A3******* 
ACASS I(7 ) 


CONVERT 
SOURCE FROM 
Y TO X 


SET MACRO 
KEY FOR 
CHAR. STRING 
ASSIGNMENT 


SET MACRO 
KEY FOR 
BIT STRING 
ASSIGNMENT 


MOVE MACRO 
TO OUTPUT- 
* BUFFER 


GM. IJXDIO 


STRING ASSIGNMENTS 
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****A3*«- ***•*»»* 

* ACASS1(10) 


* BUILT MACRO 

* FOR BINARY 
*FIXED ASSIGNM. 


* SET SWITCHES 

* ADLAC0=0 

* ADN0C5 =8 


*01 ********* 
RETURN * 


SET IN 
SECTAE 
ENTRY(21) 
= 8 


***CACTI0N*4)**** 


ASSIGN WITH 
LIBRARY- 
ROUT INES 


( ; 

X 

****F3********* 
* RETURN 


( 

CHART GN. IJXOIO ASSIGNMENTS 
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CHARI 


■» ***A3********* 
ACTEE6 • 



* YES .* *. 

RETURN *X.E-KEY .* 

“*N0 


WORKING- 

STORAGE 

L-BYTES 


X 

*D3***»** 

REGUEST 


MACRO KEY 
= X39ES> 

MACRO LENGTH 
= 17 


»G 2* 
OP=CP2 


INSERT 
LENGTH BY 
MACRO+16 


CHANGE 
6-KEY TO 
E-KEY 


MACRO KEY 
= X »9 J» 

MACRO LENGTH 
= 23 


INSERT 

N=2 

BY MACRO+4 


****#H5 *■»** 


OP1=GP 
CP=OP2 
0P3=0P2 


GO• IJXDIO 


INDIRECT OPERANDS 
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■ A 3 * * * * ■ 
ACC.0B3 


CHARI 


«****b: 


x 




Z 1 -T ABORG 
Z 2 =Z1 + 11 


*«*«■#**** 


#D3«******* * 
RETURN 


CP. IJXDIO 


INITIALISATION OF POINTERS 
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CHART 


c 


****A3********* 

* CACTION C * 



* YES .* 

ERROR *X.*. W=0 

**NO 


MACRO KEY 
= X 3 5 6 3 

MACRO LENGTH 
= 17 


CONSTRUCT 
BIN. ASSIGN. 
MACRO 


MACRO KEY 
= X 353 a 

MACRO LENGTH 
= 16 


INSERT LS 
BY 

MACRC+16 


TAKE NAME 
FROM 
IJKMVC 


INSERT 
NAME BY 
MACRG+16 


MOVE TARGE 
AS FL.P. 
REGISTER 


GO. IJXDIO 



CONVERSION, ACT IONO 
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( 



TAKE NAME 
FROM 
IJKMVC 


INSERT LABEL 
BY 

MACRO+I6 


GETERMINE 
SIGN OF 
QS 


DETERMINE 
SIGN OF 
QT 


INSERT X 
BY 

KACRC+2Q 


MACRO KEY 
= X3i"»63 

MACRO LENGTH 

= 20 


( 


MOVE TARGET *X. 


MACRO KEY 

=xaco3 

MACRO LENGTH 
= 22 


* ■» * * F 4* *■**«■* 
Y=31-PT 


DPI=TARGET 


INSERT 
Y-X BY 
MACRO+20 


X 


:sr: 

* G4* 



CHaRI Gft. IJXD1G 


FIXED BINARY ASSIGN MACRO 
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CHART 



**A3**»«** 

CACTI0N1 


*D2***** 

RETURN 


D3 *. 

W LT 29 

* *NO 


TAKE 

STORAGE AS 
TARGET 


*F2***«* 

RETURN 


MACRO KEY 
=XaB6£ 
MACRO 
LENGTh=li 


INSERT 
MASK = XaFCtS 
EY MACRO 


INCREASE 
PCD IFIER(OP ) 
BY LT-I 


GS. IJXDIO 


CONVERSION?ACTICN1 
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* CACTI0N2 * 


**»»*B3«***«***** 

* MACRO KEY * 

« =X35Da * 

« MACRO * 

* LENGTH=18 * 


•«**C3***»*«* 

INSERT-QS 

BY 

MACRO+17 



* INSERT LS 

* BY 

* MACRO+16 


X 

**E3******* 

TARGET2 

*takI* 

REGISTER 
AS TARGET 


#*«**E4*-»******* 


* TAKE 

* STORAGE AS 

* SOURCE 


MOVE 

MACRO TO 
OUTPUT 


«**«H3**«****** 

► RETURN *X 

*«*«•*****»•*** 


***»*H4****** 

* FREEING 
*—*—#—*—*—*—* 

* FREE 

* SOURCES 


CHART GT. IJXDIO 


CONVERSION,ACTI0N2 
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CHARI 




««**& 3****** 

* CACTION3 


SET 

HACRC KEY 
= XJ)523 


SET 

MACRO KEY 

=xasia 


****03*«***** 


INSERT LT 
BY 

MACRO+16 


INSERT LS 
8Y 

MACRO+17 


TARGET1 
-*-TAKE*-*- 
STORAGE AS 
TARGET 


GU ® IJXDIO 



CONVERSION,ACTIONS 
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rA2*» 


( 


* CACTION 4,5,6 « 



X 


* IN LIBRARY *" 

* BIT STRING * 
*«»***"»**•*•**«•* 

* MACRO+5 * 

*********-&******* 

* MACRG+4 * 

***************** 


4 . ' 


a *****E4«********* 

. * SOURCE1 * 

...X* TAKE * 

* STORAGE AS * 

« SOURCE 

*««»««««****«*«•* 


* MOVE NAME * 

*«***F3********** 

* 0P1=T ARGET * 

X 

* e *** F 4* ******** ■» 

* TARGET1 * 


» TC MACRC+18 * 

***************** 

* STORAGE AS * 

* TARGET * 

•*«**«**««»«„**«» 


X 




G2 * ** *. 

.^‘registers"*, yes 

*. FREE .« . 




* *NC 




X 

* * * * *H 2-* **«***»«* 

* GENERATE * 

* STM 14,4,GWQ * 

***>****«***»-»■»** 




X 

** J2**»**** 

* MOVSTC * 

« MOVE CODE ’ *. 

I «****J3* **■#•#***** 

X * SET * 

...X* SWITCH 

***** J 4********** 

* MOVE NAME * 

....X* FROM IJKMVC 

*****J5********** 

* SET LENGTH * 

....X* OF MACRO * 


* TQ OUTPUT * » ADAC46=C * * TO DED+3 * » =20 



CHART GV. IJX010 


CONVERSION,ACTIONS 4,5,6 
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*****B4**< 


MACRO KEY 
=Xa433 
TA=TARGET 

************** 


**D4******* 

TA=SOURCE 


***E1******** 

MOVE DED 
FROM AT+10 
TO MACRO+20 


INSERT 

1=2 

BY MACRO+4 


*****£ 2 ******** 

* MOVE DED 

* FROM AT+iO 

* TO MACRC+18 


INSERT 

1=1 

BY MACRC+4 


TEST AND 
INCREASE 
IJKMVC 


AT = 

ATTRIBUTE 
OF TA 




*****F4******** 

* INSERT 

X* P(TA) BY 

* DED+9 

* 

*************** 


INSERT 
Q(TA)+128 
BY DED+1G 






****H3********** 

INSERT L * 

AND K BY *. 

DED+7 * 


MOVE NAME 
FROM IJKMVC 
TO OED+3 


MOVE NAME 
FROM 
IJKMVC 
TC MACRO+2G 


MACRO KEY 
=X3413 

MACRO LENGTH 
=22 


* J4 *'* 
V GT 4 

** *YES 


CHART GM. IJXDIO 


CONVERSION,ACTIONS 4,5,6 
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».*C3******* 

ACAC46=15 


CHART GX. IJXD10 


CONVERSION.ACTIONS 4.5.6 
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*****«•**«• 

##*«A2****-***** 

* * 


t*sA3«******< 


CERCUT(D) * 

* DERGUT{1} * 

* 

CEROUT < 2 i 

* 




«e»9«*«****tt**« 





*D3»* 

RETURN 


»***F2*«**** 
DEROUT(6) 



* CEROUT(71 * 



*****G3***«»-»**** 
# * 

* L=2 * 

* K=X3243 * 



CHARI GY. IJXDIO 


DETERMINATION OF DED 
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( 


( 

CHART 


• -a**A3*****c««tt4 

* CACTICN(7J * 



MACRO KEY 
= X257a 

MACRO LENGTH 
= 17 


MACRO KEY 
=X3543 

MACRO LENGTH 
= 17 


X 



X 


*02****** 



***D3******** 



* 

ft 


* 

INSERT 

# 

« 

INSERT 

ft 

LT BY 

ft 

* 

32-P BY 

ft 

MACRC+16 

l 

* 

MACRO+16 

ft 



X 


4**.*E2»***»*<»«*« 

* SCURCE2 * 

* TAKE * 

* REGISTER AS » 

* SOURCE « 


X 


*GT** 
4 G4* 


GZ. IJXDIO 


CONVERSION,ACTIGN 7 
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CHART 



NO SUBROUTINE, 

BUT A DETAILED REPRESENTATION 
CF A PART IN PREMAC (GF) 


DETERMINE 
M=NUM6ER 
OF ADDITION 
REQUEST 


* C2 * 
. X*I M=0 


PARAMETER 
IS GIVEN BY 
Z2 


FLOAT 
FUNCTION 
. (N-2) 


N=2 

Z2=Z2+18* 

(N-2) 


X 

* HB 


INDICATES 
Z2+7 LONG 
. FLOAT . 


CHANGE 
OP-CODE 
FOR MACRO 


INDICATES *. YES 

.X*. 12+1 SHORT .*_ 

*. FLOAT .* 


. «NO 
3 *. 

N=Q I*X. 


CONVERT 
SHORT TO 
LONG 


c 

HA. IJXDIO CONSTRUCTION OF PREMACROS 
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( 


**«B5***«* 

RETURN 


PARAMETER 
IS GIVEN BY 
Z2+2 


DETERMINE 
RS = REQUI RED 
STORAGE TYPE 


. *NO 

3 

N = C 


»***E3*****» 
T ASWX = 15 


DETERMINE 
LENGTH OF 
PREMACRO 


MOVE FIRST 
12 BYTES 
*FROM PREM. 


< 


*F2*** *** 
T ASWX=0 


MOVE 

SOURCE OR 
TARGET 


DETERMINE 
OFFSET IN 
CONSTANT 
TABLE 


MOVE 
CONSTANT 
TO OUTPUT 


MOVE 

OPERAND TO 
* OUTPUT 


G4 *. 

YES .**OP=CONST? 



CHART HB. IJXDIO 


CONSTRUCTION OF PREMACROS 
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CHART 




63 *. 

ADADR4 


»*HK « 

ffiElWW 


X 

*****D3********** 


SOURCE 
= GWD 




v.y 


X 

GF 

B3 


HC ® IJXD1Q 


CONSTRUCTION OF PREMACROS. 
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( 


*A3****» 

ACCOST 


BUILT MACRO 
FDR SHORT 
TO LONG 
ASSIGNMENT 


DETERMINE 
OFF SET IN 
CONSTANT 
TABLE 


NOTE LONG 
FLOAT IN 
CONSTANT 
TABLE 


*F3**»»* 

RETURN 



CHftRT HD. I JXOiO 


CONVERT SHORT TO LONG 
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X 


* 

X 



























A3 *. 



A4 *. 






****A1********* 




















YES .* INTTABEN *. 



NO .* INTTAEEN * 




ENTRY. * 


* IJXC11 ♦ 






...*.+15 AND X 08 .* 



. .*.+15 ANC X 02 



4 



* * 






*. EQ ONE .* 



*. EQ ONE .* 



4 

NEOF * 


444444444444444 












* 
























*N0 



* YES 






X 






X 



X 




X 


***«*BI ********** 






******B3*********** 



*****B4* ******* 




***B5*********** 

















* MOVE * 






4 4 



* IJKMJT+2 






* (TABLE) * 






EXCP..T 



* CR 




POINTS.. 


* TO * 






* BSR * 



* X 08 

4 



TEXTIN * 


* (TAELEM) * 









4 

4 





***************** 









............... 




. ■ . 

















X 








X 





X 








X 



X 






Cl ♦ . 






*****03********** 



******C4******** 




C5 *. 

















.* INTTABEN *. NO 






* MOVE * 



* READ.. 



NO - 

* IJKMJT+2 *- 


*.+15 AND X 08 .♦. 






* tasava * 



TEXTIN 



. • *4. 

AND X 80 .* 


*. EQ ONE .* 






* TO * 



* END 




*. EQ CNE .* 


* . . * 






* (TABLEM) * 



IJKMBL 




4. * 4 


4 # • * 













- * 


♦ YES 













♦YES 


X 


X 




X 



X 




X 




***D2*»**«**« 




D3 *. 




444 


4 4 




4 


* 









4 



* SET REG 1 * 

* 

SET REG1 

* 


YES .* INTTABEN *. 



4 

4 


4 

SET REG1 * 


* TO * 

* 

TC 

* 



...*.+15 AND X 08 .* 



CHECK.. 



4 

TC *.. 


* EOF ADD + * 

* 

ECF ACT + 

* 



*. EQ ONE .* 



* TEXTIN 

4 


4 

EGFADD * 


* TEXTIN * 

* 

TEXTIN 

* 



4 . .* 






4 

+ITEXTIN) * 


44444444444444444 

* 4 


4 4 



4 m .4 






44 









*N0 









lx . 















X 






X 



X 






**«**E1********** 






******E3*********** 



******E4******** 

444 



***E5********** 














4 



* SET 






4 4 



4 

4 


4 

SET REG1 * 


* (REG1) * 






WAIT..T 



NOTE.. 



-X* 

TO * 


« TO 









* TEXTIN 

4 


4 

EOF ADT * 


* NECFAD+1 * 












4 

+(TEXTIN) * 


■ 






............. 



............. 



** 

l 















lx . 


X 






X 



X 




X 


*****F1********** 






*****F3*»ft**»**** 



*****F4******** 




***F5********** 








* SET IJKMVC TO * 



* 






* SET * 






* INTTABEN+8, * 



* SET KTETA+8 




SET « 


* INTTABEN(l) * 






* IJKMWC TC * 



* TO 




(REG1) * 


* 70 * 






* INTTA6EN+16 * 



* REG 1 

4 


4 

TO * 


* * ZER0 






4 4 




4 


4 

DUMPSAVE+1 * 








44444444444444444 















X 



X 




X 


X 





















G3 *. 



G4 ♦ . 




G5 *. 

















* POINTR..T * 






NC .* INTTABEN *. 



NO .* IJKMJT+2 * 

# 


NO - 

* IJKMJT+2 *. 


REGC. . 






...*.+15 AND X 04 .* 



. AND X80 




AND X 80 .* 


* INTTABEN * 






*. EQ ONE .* 


x' 

*. EQ NE .* 




*. EQ ONE .* 






































*YES 



♦ YES 




♦YES 


X 






X 



X 




X 


(**«**H1 *********** 









****«H4******** 



*4 

*«*H5*****#*«** 












4 


4 

* 


* CHECK * 






* IJKMLB+2 * 



* SET KTETA+14 

4 


4 

4 


T 






* OR * 



. ..* TO 

4 


4 



* * 






* X ID * 



♦ REGC 

4 


4 

4 












4 


4 

* 











*******«**•*•** 

4 4 





X 






X 









t*****Jl*********** 






*«***J3********** 







*4* J5 ********** 














* 



* READ.. T * 






* I JKMLB+5 * 






4 

SET REG1 * 


REG12 






* OR * 






.•X* 

TO EOF ADT * 


* INTTABEN * 






» ADLIBIN * 






* 

+ { TEXT OUT ) * 


+ 6 












4 

4 








***************** 







*444444444*4**4 


X 






X 







lx. 

X 


»****«« 1 *********** 






*****K3********** 







♦**K5******«*«* 














4 



* CHECK * 






* SET IJKMJT * 






* 

SET ♦ 


T 






* TO * 







( REG1 ) * 








* INTTABEN+14 * 





X 

4 

TO * 












44 

444 

4 

GUMPSAVE+1 ♦ 


4 4 4 4 4 44444444 






44444444444444444 




*HM * 

*4 













4 

A3* 




• 






• 




* 

** 





CHART HL. IJXD11 


GENERAL FLOW 




A 'N 



7o 




























































Bx=THE 

HIGHEST STO¬ 
RAGE ADDRESS 
OF THE PHASE 


BO=Bl+LREAD 

L0=8UFFER- 

LENGTH 


B2=BG+LG 
B3=B2+L2 
B4 = B2+LC! 

B 5=B4+LWRITE 


Ll=LO+LREAD 
L2=LO-LREAD 
L4=L0+LWRITt 


B6=B5+L0 
SAVE0=B6 
+LWRITE 
SAVE = SAVEG 


PI N = BO 
0 PR = B4 
CURBUF=0 


LOAD 

BUFFER(1) 


MOVE COMPILER 
* CONSTANTS * 
« TO OUTPUT » 


EXIT FROM 
GENERAL FLOW 
IN ACT ION( 31) 


CHART HM. IJXD11 


GENERAL FLOW 
















CHART 


Vy' 


SAVE 

RETURN- 

ACDRESS 


*C3** 

K = {r= C PIN) ) 


TAKE LENGTH 
L FROM 
LETAB 


TEST IF 
E-OR F- 
KEY 


t 

» L=(i(PiNn 


*«**G3* 

* RETURN 


HN• IJXD11 


FETCH ROUTINE 



72 












****A2********* 

ADMVC 



* NAME * 

* =( IJ KMVC } * 


INCREASE 

VARIABLE- 

COUNTER 


« 04 ***** 

RETURN 


TEST 
IF EA- 
KEY 


< 


NOTE 
SEVERE 
ERROR IN 
INPUT 


***G3*****«** 

NOTE ERRORS 
IN 

COMPILATION 


X 

#*H3#***-** 
MOVE 10 

MOVE ELE¬ 
MENT TO 
OUTPUT 


SAVE = SAV EG 


MOVE 
X3EB833 
TO OUTPUT 



CHART HO. IJXD11 


TEST AND INCREASE IJKMVC 


73 




















/TA 
(. ^ ^; 


* ACTIGN(O) * 


HOVE 
ELEMENT 
TO STIN 


SET 

SWITCH 

ACT10=0 


X 

D3 *. **D4******* 

.* *. * SAVER * 

.* ENTRY- *. YES *_*_*_*_*_*_*_* 

*- STATEMENT ..X* SAVE RETURN * 

#. .* * ADORESS * 


X 


X 

**E3******* 

* MOVE10 

MOVE 

ELEMENT TC 

* OUTPUT 


**E4******* 

* MOVEIO * 

*—*—*—*—*—*—*—* 

« MOVE * 

* ELEMENT TO * 

» OUTPUT * 


**F4******* 

****F3*****«*** * MOVESO _ * 

* RETURN *X.* MOVE CODE * 

* * * SICNOP C t42 * 

*«»**»**»**«*** * JO OUTPUT * 


V. . 


CHART HP. IJXD11 


AC TIOHO 
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( 


MOVE 
ELEMENT 
TG OUTPUT 


X 

*C3** *** 
SAVER 


MOVE 
ELEMENT 
*TC AA39+12 


( 


c 

CHART HO. IJXD11 ACTION1 
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****A3****** 
* ACTION(IO) 


MOVE 
ELEMENT 
TO OUTPUT 


TEST 
IF ACTIO 
. =0 


SAVE 

RETURN 

ADDRESS 


SET 

SWITCH 
ACT 10 = 15 


MOVE 

ELEMENT TO 
* OUTPUT 


MOVE CODE 
*3END OF BLOCK* 
* CNOP 0.42 * 


*G3****« 

RETURN 


CHART HR. IJXD11 


ACTI0N10 
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r~\ 











( 


WOVE 
E LEWEfMT 
TO OUTPUT 


ACTION*28) 


***C3*«****» 
SET SW1=15 


( 


( 

CHART HS. IJXD11 ACTI0N28 
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4 r ~ > \ 


•EXCHANGE BYTES * 
*0 UNTIL 12 WITH* 

* 16 UNTIL 28 * 

* IN INPUT * 


X 


*E3****» 

RETURN 


CHART HT. IJXD11 


ACT10N30 
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CHART 


****A2***** * 
* ACT I OK(31) 


**A3»****«* 

* MOVE 10 * 

,X* MOVE END- * 
* KEY TO * 

* OUTPUT * 


TEST 

IF ARRAYS 
.IN COMP. . 


.* TEST 
. IF FORMAT 
•LABELS INC. 


*«G2*****«* 

* IJKPH * 

** CALL ** 

* PHASE D15 * 


X 

F3* 

.*’ TEST IF **. NO 
•BUILT IN FUNCT.*.. 
•.IN COMP. .* 

* **YES 


**G3******* 

* IJKPH * 

* CALL * 

•^ PHASE D17 * 


**G4******* 

* IJKPH « 

* CALL * 

* PHASE D4 U * 


HU. IJXD11 


END OF TEXT STRING 
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ACTI0N21 


MOVE 
INPUT TO 
AA30 


* TAKE 
X* N=NUMBER 

* OF OPERANDS 


P1=MA1 

P2=AA30+12 

P3=AAP3 


•***•»# G 4 ** * ****** * 


MOVE 1 BYTE 
FROM P2+7 
TO AA30+31 


P3=P3+8 
P1=P1—6 
P2=P2+12 
N=N-1 


CHART HV. IJX011 


ACTI0N21 


8o 


























CHART 


*HW** 
* A3* 


X=P(1 ) 

Y=P•Q(1) 

P(1)=P(N) 
»Q(1)=P,Q(N) 


* P( N J= P (2 ) 
.X* P,G(M)=P,Q(2) 


***C2********** 
P,Q{1)=15,0 * 


•««C4*****»**»* 

SWY=C *X 


***■**•*****■#**■»*#* 


*****D3********** 

* TAKE * 

X* MI=MACRO * 

* IDENTIFICATION * 


«««*«»*»««**«««** 


*****F3********** 


INSERT MI 
BY 

Pl + 5 


**G2* 

TAKE 
P » Q ( N-l ) 
=R1,R2 
P * Q ( NI 


YES .* X GT 18 *. NC 


***G4********** 




«**#*H3********** 

* TAKE X * 

.X* =LENGTH OF *. 

* MACRO * 

« * 


MGVE 

xaF200a 

BY PI+2 


**** Ji>***** 
* RETURN 


HW. IJXD11 ACTIUN21 
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CHART 




*A3* 
ACMACO 


CLEAR 

DELETE 

BIT 


MOVE 

CONST AM f TO 
* OUTPUT * 


X 



SWY=0 



***» F3 ***,,***, 

RETURN 


HX. IJXDU 


TRANSFER OF CONSTANTS 
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< 


*A1« ** * 
IJXC15 


***B2 *b*bb*«* 
CALL IJXD17 


.•bYES 
C2 *. 
•ONSWIT b 
= 1 


CALL IJXD4G 


ACTION 
FOR EO 
KEY 


( 


TEST FCR 
LABEL 

ASSIGNMENT 


*....Xb Cl * 


( 

CHART JA. IJXD15 MAIN 
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«*A 1 ■»**** 
INIT1 


ARRAY *. 

TAB 

USED 


Cl 

.« FORM. *. 

TAB USED *. YES 


GET 

FORMAT 

TABLE 


*E1***»* 
I 8U2 = 

I BUI + 
BUFFI 


I BU3 = 
IBU2 + 
BLFFL 


*G1****« 
OBU1 = 
IBU3 + 
BUFFL 


*H1* 
0BU2 = 
OBU1 + 
BUFFL 


*Jl***«* 

OBU3 - 
0BU2 + 
BUFFL 


***A3**»* 
INPT = 
IBU 1 


**B3**»* 
OPT = 
OBU1 


*C3***«* 

ZERO 

OVERAY 

SWITCH 


*D3»*** 
IREC = 
3 


**G3***»* 

RETURN 


CHART JB. IJXU15 


INIT1 
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EO ACT 


CLEAR 

ERROR 

SWITCHES 

ERRSW,CT 


X 

***C1#«*****« 

CLEAR 

ERROR 

STACK 

ERRQSTK(16) 


***D1******* 
LA RC!,6 
LR R1,INPT 


PL'T OUT 
STATEMENT 
BEGIN 


*F1****«* 
LA RC * 6 


«**H1*«*** 

RETURN 


CHART JC. IJXD15 


EO ACT 
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* * * * A 3 * * *** * * •* * 
PEA 



CHART JD- IJXD15 EAACT ,PEA 
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F ii AC T 



X 

***-»* e 1 ** *«■»«*** * 

* LA RO » 2 * 


*C1 * 

LR Rl, 
INPT 


PIT OUT 
ERROR 
BYTES 


INCREASE 

INPUT 

POINTER 


*«*#«»»*** 


CHART JE. IJX015 


EBACT 
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ASKIP 


*««**««** 


*B1 * 

MOVE 

1(2,INPT) 
TO SLENG 


*C1*«******** 
LR Rl, * 

INPT * 




****01 ********** 
LH HO, 

SLENG * 


MOVE 

INPLT TO 
OUTPUT 


* * * * *F 1 * ** ** 

* LH RO, 

* SLENG 


*****F2********** 

* MVC * 

* SLENG(2) , * 

* 1{I NPT ) *X 


INCREASE 

INPUT 

POINTER 


***«**«**«««*»*** 


***H1********* 
RETURN * 


CHART JF. IJXD15 ASKIP, 


****F3********* 

INCRE 


INCRE 
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< 


■A1«****»*»* 
SKIP 



INPT+RO 


D1 *. 

* INPT * 
GT IBU2 


****E1******»#» 

* RETLRN * 




***-»D3***«***«* 

* RETURN * 


< 


( 

CHART JG. IJXD15 SKIP 
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Al**** 

REACIN 


H. 


X 


B1 *. 

.* IREC *. 

.* =3 *. YES 

*****B2********** 

* BUFFER * 




*»N0 





X 

Cl****. 

.* IREC *. 

.* =2 *** YES 

*****M0VE*31***** 

..X* MOVE IEU3 *.... 

**C3******* 

* WAIT * 

* FOR * 

....X* TEXT I/O *.... 

X 

*****C4********** 

* FILL UP * 

* BUFFER * 

....X* IBU 2 * 


*‘*N0 

* TO I8U 1 * 




X 

* MOV 21 * 

* MOVE *.. 

**D2******* 

* WAIT * 

* FCR * 

...X* TEXT I/O *. . . . 


X 

*****04********** 

* FILL UP * 

* BUFFER * 

....X* IBU3 *. . .. 

....X* RETURN * 

* IBU2 AND * 

* IBU3 * 

***************** 






CHART JH. i JXD15 


READIN 



9o 

















{ 


*A1*«*** 
MOV 31 


**A2**«*« 

MCV21 




* A 4* * * ** 
MOVC21 




*»B4**»*» 
LH RC , 

IJKMbL 




*«***C. l»**-»****** 

* L Rl, * 

* I8U3 * 




**-***Dl****«« 

* INPT = 

* INPT- 

* 2 IJKMBL 


**D2* 

I NPT = 
INPT- 
IJKMBL 


* *D4** 

L R2, 
OBU 1 


****■»£!*•»****«*** 

* L R2, 

* I BU 1 * 


OPT = 
OPT- 
I JKMBL 


*-»**Gl*** *-**■**•* 

* RETURN * 


*G4* * 

RETURN 




( 


CHART JI. I J XL) 1 5 


MQV31 * MOV21t M0V031 
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V,.. 


SAVE RO 
TO 

SAVRO 


**C1»***** 
SAVE R1 
TO SAVR1. 


*D1***** 

COLE = 
OEU3- 
OPT 


El *. 

* RC * 
GT COLE 


X 

*F1«*** 
LR R2 , 
OPT 


*E2«*** 
L RO, 
COLE 


*F2**«*« 
L RO, 
SAVRO 


«***E3**»* 
LR R2, 
OPT 


****F3««*** 
SAVR1= 
SAVR1+ 
COLE 


GENERAL 

MOVE- 

ROUTINE 


**F 4**-“* 
SAVRO = 
SAVRO- 
COLE 


X 

****F5****** 
OUT 

UPDATE 

OUTPUT 

POINTER 


GENERAL 

MOVE 

ROUTINE 


»*G2***** 
L Rl, 
SAVR1 


*H1*»*** 
L RO, 
SAVRO 


UPCATE 

OUTPUT 

POINTER 


*K1***»* 

RETURN 


CHART JJ. IJXD15 


MOVOUT 



92 






















**A1 


( 


CUT 



OPT = 
OPT+RC 


Cl *. 

* OPT * 
GT OBU2 


»C2****** 
PUT CUT 
OBU1 


*D2***#«* 
PUT CUT 
OBU1 


*E2***»* 

RETURN 


**PUT*OUT* 

0BU2 


«C5***** 

RETURN 


( 


( 

CHART JK. IJXD15 OUT 


93 
















• Cl* 

LA RCtl 
OREC =2 


V.> 


***»*B1««**** 

* MVI 

* 0(OPT)» 

* EOP KEY 


•«*«•«•«««•«««•** 


POT POT 
LAST 
RECORD 


El *. 

. *OVSInIT *- 
* =c *. NO 


****£ 2 ********* 

* IJX D20 * 


#***F1« 

* IJXD4C! * 

ft************** 


CHART JL. IJX015 


EOPACT 
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X 

»■» B 1 «**■»»***** 
GET NAME * 

IJKMVC * 

TO N AME{2 ) * 




RETURN 


( 

CHART JM„ IJXDlt) IJKMNN 
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«««#A1***** 
* ARRTAE 


***«*B1 ****** 

* AREU= 

* IJKMES+ 

* 5 ELFFL 


***•»*«««•«***#■*#•** 


***«*D1 

* NI EIT2 

« IN TAETAB 

* ENTRY 



<«-ttB«Eln«****»*** 

* LA ROtl * 


*##*■»**«****#***» 


*#«#*F1*******#*# 

* L R1» * 

* AREU * 



*#***G1«*****«»»* 


* LA R2, * 

* ZTAE05 * 

« * 



CHART 


JN 


IJX015 


ARRTAB 













( 


■Mtt**Al***«#-**** 
FORMTAB * 



FORMEL= 

IJKMBS 

-364 


***************** 


IN 6IT2 
IN TABTAB 
ENTRY 



LA RC»1 


***F1********** 
L Rl, * 

FORMBU * 


*#««*G1***** 

* LA R2, 

* ZTAB18 


**H1* 

* READ IN 
FORMAT 
TABLE 


**** ««**«*# 


* RETURN 



CHART JO. IJXD15 


FORMTAB 


97 












w 


* A1 ****■*■» 
LAEELAS 


B1 *. 

* LABEL * 
ASSIGNM 
MAKRO 


PUT GUT 
MAKRC 
UNCHANGED 


*#*C1******* 
LOAD ADDR. 
GF FORMAT 
LABELS IN 


D1 *. 
.* END 
OF FORM. 
LABLE 
. TAB 


El *. 
.* IS IT * 
FORMAT 
LAEEL 
.ASSIGNM. 


*****t2****** 

* INCREASE 

* R4 BY 

* 2 


X 

**F1******* 
CHANGE 
MAKRO KEY 
TO X 95 


•**G1*****«* 
FETCH NAME 
FROM TABLE 
AND STORE 
IN MAKRO 


**H1******* 
MODIFY 
SKIPPABLE 
LENGTH 
OF MAKRO 


*«J 1 ******* 
PUT OUT 
NEW 
MAKRO 


INCREASE 

INPUT 

POINTER 


*«**K2***»* 

RETURN 


CHART JP. IJXD15 


LABE LAS 
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* A1*** ** 
SUBSCR 


INITIALIZ. 
QF 

SUBSCRIPTS 


TEST FOR 
CORRECT 
DIMENSION 


****E4***** 
.X* ERROR 


* TRACT4 


* TRACT3 


*G1***#* 

RETURN 


< 

CHART JQ. IJXD15 SUBSCR 
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****A1 *• 


V., ^ 


**B1******* 

CLEAR 

TRANSLATE 

BYTE 


*C1****»* 
CLEAR 
MAK 67 + 4 
( 56 J 


***D1******** 
MOVE TARGET 
(6) TO 
MAK87 + 6 


MOVE 0(R4) 
= ARR.NAM E 
TO MAK87+ 
48 


*«*G1****** 
INSERT R5, 
ARRAY 
NUMBER 


**H1****** 
MULTIPLY 
R5,=H 12 


*J1»*** 

A R5 f 
0 EU3 


**K1****** 

STORE R5, 
ARRORG 


****K2********* 
X* RETURN * 

*************** 


CHART JR. IJX015 INIT SUB 


loo 














**A1********* 
DIMCHK * 


B2 *. 
N = 4 


TEST IF 
ARRORG+ 
,6,8 NOT G 



****B4******* 

* ERROR EXT 


TEST IF 
ARRORG+ 
,8 =0,4FG 


CHART JS. IJXD15 


DiMCHK 


loJ 
















*A1**** 
CHECK5 


CHECK4 




Cl *. 
* K 
GT HAN 


ILLEGAL 
DIMENSION 
GF ARRAY 


RETURN 
TO SKIPR. 


C3. *. 

*- K * 
GT THAN 


*E1*«*** 

RETURN 


**E3***»* 

RETURN 


* CHECKS * 



X 


Gl* *«. 

.«* GT THAN*'*- NC *** 
*. C .X* 82 



X 


HI 


K 

=C 



X 


J1 


J 

=0 



*K1 

RETURN 


CHART JT. IJX015 


CHECK5 t CHECK4 » CHECK3 


lo2 


















TRACT: 



««««»*««*» 
* TESCON * 


* TEST IF * 

* ARGUMENT * 

* A CONST. * 


El *. 
* TRfiYT 
=2 


X 



X 


X 


*NO 


X 

HI* **. 

.* TRBYT * 
.* =5 



«•«««*«««««*««*** 


CHART JU. IJXD15 


TRACT5 


lo3 

































*#**A1**»*«**** 

* TR ACT 4 * 


TEST IF 
ARGUMENTS 
CONSTANT 


#«*#****«***««*«* 


El 

* TREYT 
=2 


****F3«*«** 
* RETURN 


CHART JV. IJXD15 


TRACT4 


lo4 

















< 


TEST IF 
ARGUMENTS 
CONSTANT 


CHART JM. IJXD15 


TRACT3 














/T 

v_> ; 


*A1****» 

TESCON 


X 

*B1***** 

INSERT 
R2»N-2 


•Cl****** 
LA R4 1 
ADSL +4 


*E1***» 
L R5, 
0 (R4) 


FI *. 
* 0(R5) 
=CONST 


**F2****« 
STC Rl t 
OINS+1 


X X 

*****G1********** *****G2******* 

* LA R41 * * 01 

* 4(R4) * * TRBYT > MASK 

* *X.* 




*Jl****» 

( R2) = 

(R 2 ) — 1 


K1 

* (R2) 
=0 


*K2******* 

RETURN 


CHART JX. IJXD15 

lo6 



TESCON 

















*A1***** 

SACT5C 


LA R4,4 
LA R5, 
MAK37+42 


*-»Cl****** 
LM R4.R5, 
ADEL+4 


MOVE AND 
GENERATE 
L 


MOVE X 

TO 

MAK 87+12 


*D2***«* 

RETURN 


**E1****** 
MOVE Y 
TO 

MAK 87+24 


««F1****** 
MOVE Z 
TO 

MAK87+36 


**G1****** 
LA R4»8 
LA R5 f 
MAK 87+18 


LA R4»6 
LA R5 t 
MAK87+30 


CHART JY. IJXD15 


SACT50 


lo7 






















****A1 ******* 

«* 

« 

**»A2*»***** 


****A3******* 

«« 


•tf 

* 


* 


* 

* SACT51 

* 

* 

SACT52 

* 

* SACT53 

* 


* 



* 


* 

*#*###*****#* 




* « 



X 

#**-tt*Bl******* 



X 

#**82*****+* 


X 

«#«**B3******* 


« LKJX 

* 

* 

LKY 

* 

* L2 

* 



* — 


# — * 



* FQ = F0 + 

* 

* 

FO = FO 


* FO=FO+ 

« 

* L*K*J*X 

* 

* 

+ L*K*Y 


* + L*Z 

* 


* 

* 


* 


* 








X 

****#C1«**##** 



X 


X 


* MOVE Y 

* 

tt 

MOVE X 

« 

* MOVE X 

* 

* TO 

# 

« 

TG 

•# 

* TO 

* 

* MAK 87+12 

* 


MAK87+12 

* 

* MAK87+12 

* 


« 



« 


* 


« 

« 


« 


« 



** 





X 

*##+*Dl******* 


** 

X 

***D2»****»* 


X 

**«**D3******* 


* MOVE Z 

* 


MCVE Z 

« 

* MOVE Y 

* 

* TO 

* 

« 

TC 

« 

* TO 

« 

* MAK 87+24 

* 

* 

MAK87+24 

* 

* MAK87+24 

* 


* 

* 


* 


* 








#*****#«#«**** 







X 

#****E1******* 



X 

***E2****»*» 


X 

««***E3*»***** 


* LA R4»6 



K = K* J 


* L=L*K 


* LA R5, 





* K= J 


..X* MAK 87+18 

*x.. « . 

. • • •* 


* 


* 


**** 

El 


**G1*«***« 
LA R4,4 
LA R5, 
MAK 87+30 


*K1***«* 

RETURN 


CHART JZ. IJXD15 


SACT51 



lo8 


f > 

























( 


X 

*B2***« 

LKJX 


*A3***»* 

SACT56 


X 

3**** 

LKY 


LKY 

FO=FO+ 


MOVE Z 
TO 

MAK87+12 


**D2»***«« 
MGVE Y 
TC 

MAK87+12 


*C3********** 
LZ_* 

FO=FD+ * 


++D3******** 
MOVE X 
TO 

MAK87+12 


LA R4,4 
LA R5, 

MAK 87+18 


*#E4***** 
MV I 

MAK87+5, 
X 00 


( 


X 

*F4****» 

PMAK87 


•»«*G1 ******* 
MOVE N = 1 
IN MAK87+5 


*G4****» 

RETURN 



J1 X 

* RETURN * 



CHART KA. IJXD15 


SACT54, SACT55 


lo9 







































#A1**** 

LKJX 


#B1«**** 
L R4 1 
ADBL+4 


#*B2******»* 
L R4 f 
ADBL+8 


###-*B3****** 
L R4» 
ADBL +12 


CONVERT 
X TO 

BIN INT. 


# 01 #*** 
MH R4« 
J 


CONVERT 
Y TO 

BIN. INT. 
**#•««****#** 


CONVERT 
Z TO 

BIN INT. 


X 

#F1**** 
MH R4 1 


*G1»*** 
AH R4 t 
FC 


««H1«•**•#**«• 
STH R4 * * 

FO * 


#*##****#** 


*J1* 
RETURN 


c 

CHART KB. IJXD15 LKJX.LKY.LZ 


llo 
































MOVGEN 


GET NAME 
FROM 
CQMREG 


X 

*C1****** 
MOVE 
NAME TO 
STABL+1 


X 

***D1****** 

MOVE 

STABL (6), 
C(R5) 


*****E1********* 

* LOAD 

* ADDRESS 

* OF ARRAY 
*TABENTRY IN R5 


X 

*F1***« 
AR R-4» 
R5 


***G1******* 

MOVE 

0(4»R4) 

TO FCCOl+8 


********* 


*H1*****« 
MOVE 
NAME TO 
FCC02+3 


LA RC»12 
LA Rl, 
FDC02 


*K2*»*»* 

RETURN 


CHART KC. IJXD15 


MOVGEN 
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(T 


«-b#«A1«******** 

CVFISCH 



X 

***■»**#*#* 
* FISCH * 


CONVERT 
TO BIN. 


* INTEGER * 






CHART KD. 1JXD15 CVFISCH 


€ 


112 








( 


< 


*A1 ***** 
PMAK87 


«B1* 

L R4, 
ARRORG 


**B2****** 

MOVE 

STABL(fc) 


*#**C1******** 
LH R5 1 

10(R4) = 


*ST*R5t 

CONS 


****D2**»*« 

RETURN 


*E1«***** 
MOVE 
CONS TO 
FDC04+8 


GET NAME 
FROM 
COMREG 


* *G1*** * * * 
MOVE 
NAME TO 
FCCC4+3 


**H1****** 
LA RG» 12 
LA Rl, 
FCC04 



CHART K£. IJXD15 


PMAK87 
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*A1***** 
MAKGEN 


««*B1******* 

MOVE 

MAK87+6(6) 
TC 

MOVMAK+4 


MOVE 

MAK87 + 6(1) 
TO 

MHMAK+1Q 


***D1 ******* 
MOVE 

MAKS 7 + 6(6 ) 
TO 

AMAK+10 


***E1 ******* 
MOVE 

MAKS 7+6(6} 
TO 

LMAK+1Q 


***F1******** 

MOVE 

MAK87+48(6) 
TO 

MOVMAK+1Q 


***A4******** 

MOVE 

MAK87+54(6) 
TC 

AMAK+10 


**B2**«*«* 

MOVE 

MAK87+12 

TC 

LMAK + 1C 


******** 


***C2* 

PUT OUT 
LCAD MAKRC 


**D2********* 

MCVE 

MAK87+18 
TC 

MHMAK+4 


**F2****** 
LA R4, 
MAK87+24 


G2 *. 

.* 0(R4) *. 
.« =A(MAK87+ 
.X*. +48) 


MOVE 

MAK87+54 

TO 

AMAK+10 


**E3****** 

MOVE 

OP1RE TO 
MOVMAK+4 


X 

♦F3****** 

PMOVMAK 


**G3****** 

MOVE 

OP IRE TO 
AMAK+10 


PUT OUT 
ADD 
MAKRC 


«B5***** 

REUTRN 




***J2*****««* 
MOVE 

0(6,R4) TC 
AMAK + 10 




*** J4******** 
MOVE 

6(6,R4) TO 
MHMAK+4 


*************** 




CHART KF. IJXD15 MAKGEN 
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< 


SACT4C 


**B1******* 
MVI MAK87 
+ 5 1 2 


*A2 ** * * * 

SACT41 


**C1****** 
LM R4,R5, 
ADBL+4 


»*C2****«* 
MOVE Y 
TC 

MAK87+12 


MOVE X 
TO 

MAK87+12 


*C4****« 

LY 

FO=FO+ 


**D1****** 
MOVE X 
TO 

MAK 87+12 


**E1****** 
MOVE Y 
TO 

MAK 87 + 24 


**F1 ****** 
LA R4,6 
LA R5 f 
MAK87+18 


MOVE AND 
GENERATE 
J 


X 

**H1****** 
LAR4» 4 
LA R5, 
MAK 87+30 


**D2****** 
LA R414 
LA R5, 
MAK87+18 


MVI 

MAK87+5» 
0 


MOVE AND 
GENERATE 
MULTIPLIER 


**F2«**** 

MVI 

MAK87+5, 

1 


*K2****« 

RETURN 


( 

CHART KG. IJX015 SACT40f41,42»43 
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*****B1***** 

* L R4» 

* ADBL+4 


**B2»**** 
L R4, 
ADBL+8 


***************** 


***CVFISCH***** 
*-*-*—*—*—*—*-* 
CONVERT * 

X TO * 

BIN.INT. * 


CONVERT 
Y TC 
BIN INT. 


**D1********** 
MH R4 * * 

J * 


*************** 


**E1********** 
MH R4, * 

L * 


***************** 


***F1******** 
AH R4» 

FO 


************ 


***G1********** 
STH R4, * 

FO * 


*H1***** 
RETURN 




CHART KH• IJXQ15 


LJXv LY 
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< 


****A1********* ****A2********* 

* SACT3C * * SACT31 * 



*****C2********** 

* CVFISCH * 

* CONVERT * 

* X TO * 

* BIN. INT * 


***** 01 ********** 

* LA R4,4 * 

* LA R5* * 

* MAK87+18 * 




( 


X 

****H1********* 

* RETURN * 




CHART KI. IJXD15 


SACT30, 


SACT31 
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********** 

* Rl= * 

* (PIN+3) * 





CHART KJ. IJXD15 FISCH 
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*A1 ********* 


*****C1* 

* CON S = 0 * 

* { L =-4 ) * 

*C0NS+4=(PIN+10)* 


***■»■»**«#******■»* 


* *Dl * 

REXP 

=(PIN+I4) 




SHIFT 
LEFT 
(R4,R5) BY 
REXP 


X 

**F1«* 

REXP 

=-REXP 


#«***G1« 

* SHIFT RIGHT 

* (R4,R5) 

* BY REXP 


* HI *. . 


*«a#«H2********** 

.X* CONS = 2**32 *. 


fl«**H3****»**** 

* RETURN * 

**«**»»«•*****•** 


* *J1 «»»«»»»»*» 

* CONS * 

* =R5 * 



CHART KL• IJXDI5 


FBFL 
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* * * * A 1 ********* 
FE IS * 


*«***B1******* 

* (R4,R5) 

* =(PIN+10 ) 


**««*««« 


*««*«««« 


****C1 * 

SHIFT 
RIGHT (R4,R5) 
BY 64- 
L(BITSTR) 


.X* CONS = 2**32 *. 


****D3********* 

* RETURN * 


***************** 


********* 

* RETURN * 



CHART KM• IJXD15 


F6IS 



12o 











( 


********* 


FBFI 


CONS * 

=(PIN+10) * 

L=4 * 


****C1 



RETURN 

*************** 


< 


1 

CHART KN. IJX015 


FBFI 
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****A1********* 


FCFL 


**«*A2«* 
* FDF 


I * 


REXP 

= ( PIN+10) 
+IPIN+S)) 



* REXP * 

* =-Q(SCURCE) * 


**C1 * 
RLEN 
=(PIN+9) 



D1 *. 
*1 RLEN GT 


D2 *. 

.(PIN+10)*. 

* =0 * 


**D3******* 
SHIFT 
RIGHT ONE 
DIGIT 


* 04 ******** 

REXP 

=REXP+1 


****E1••*•**•• 

STORE CONST. 
RUGHT ALIGN. 
IN CONS 


*****E2******« 

* CONS 

* =(PIN+I1) 

* L = 8 


*****E4********** 

* * 

* CONS = 2**32 *. 


**E5***»* 

RETURN 


**F2****** 

REXP 

=4*REXP 


F3 *. 

.X*:* REXP LT C 
*’*YES 


F5 *. 

. * *. 

.* 

-X*. REXP GE 60 


«*HIGH-ORCER 
*. DIGITS 
*. =C 


••***G2******«* 

.X* CONS = 2**32 


*64****** 

(R4,R5J 

=CONS 


* G1 * 
***• 


**H1* 

CVE CONS 
<R5) 


***H2********* 

RETURN 


*****H3********** 

* CONS * 

* =0 * 


*«*****•»*«***» 


****J3******** 

RETURN 


**************** 


*****H4«********* 

* SHIFT * 

* RIGHT * 

* (R4,R5) * 

* BY -REXP * 

* * 
******•***••«**** 


*****J4********** 

* CONS * 

* =(R4 »R51 * 

* SET SIGN *X 


X 

*G5****» 

CLEAR 

SIGN 




***«*H5********** 

* SHIFT * 

* LEFT (R4.R5) * 

* BY REXP * 


***K1* 
RETURN 


CHART KO• IJXD15 


FDFL 
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c 


•••*»C2**•*•***•* 

* ECPACT * ** 

.X* * ECP * * *.X* 

* ACTION * * 

**•••••••• 

* EOACT * **** 

-X* EC' KEY *_X* Cl * 

* PROCESS. * * * 


*C3**** 

EOPH 


****E2******* 

ERRGR EXIT 


< 


END GF 
STATEMENT 
PROCESSING 


...X* Cl * 




************ * 



X 


CHART LA. IJXD17 


GENERAL FLOW 
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*-tnt*Al********* 

* INIT 1 * 

*■****•»«****■»*** 


I BU2 = 
IBU1 + 
IJKMBL 


*****D1********** 


I EU3 = 
IBL2 + 
IJKMBL 


*»***El#***IHHHHHf 


0BU1 = 
IBU3 + 
IJKMBL 


0 BU2 = 
OBU1 + 
IJKMBL 


* OBU3 = * 

* QBU2+ * 

* IJKMBL * 


*•»•»** H1 *** * 


IREC =3 
3 BUFFERS 
REQUIRED 


GET 

TEXT 

INPUT 


**C2* 
0REC=0 


*«***D2 **«*■*#* 
* CVSWIT= 0 


#***E2***»* 
* RETURN 


€ 

CHART LB. IJXD17 IN IT 1 
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< 


****A1 
* ECSACT 


CLEAR 

ERROR 

SWITCHES 

ERRSW,CT 


CLEAR 

ERROR 

STACK 

ERROSTM 16) 


PUT OUT 
STATEMENT 
BEGIN 


< 


< 


CHART LC. IJXD17 


EOACT 
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/iT^x 

Vy 


*A3**»* 

PEA 




01 

1 (INPT}t 
X AO 


*•**•*■*#*** 

* LOAD IN * 

* RO LENGTE 
*CF ERROR STACK * 


««***•••* 


•••••*** 


SKIP TO 
THE NEXT 
KEY 


*E3****»«* 

RETURN 


«*H1*****»♦»* 
RETURN * 


CHART LD. IJX017 


EAACT t PEA 
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( 


c 

CHART 


*A1 ********* 

E E ACT * 



X 


:.EH**«**«»** 
LA RC »2 * 


>*C1 * 



PUT OLT 
ERROR 
eVTES 


INCREASE 

INPUT 

POINTER 


*F1***** 
RETURN 


LE.AllJXD17 


EBACT 
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*A2***»* 
SKIPF 7 


MOVE 

1(2,INPT) 
TO SLENG 


MOVE 

2(2,INPT) 
TO SLENG 


MOVE 
INPUT TO 
OUTPUT 




MVC 

SLENG(2 ) , 
1(INPT) 


*F3****» 

INCRE 


X 

»*G1*«#**# 
SKIP 

'increase 

INPUT 

POINTER 


*H1«**«* 

RETURN 


CHART L F • IJX017 


ASKIP,SRIPF7, INCRE 
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( 


SKIP 


* INPT= < 

* INPT+RC 



**C2***«* 

IREC=2 


X 

^D1* ** *.^ 

.** INPT YES 

GT IBU2 -*_ 


*D2*****«**** 

IREC=1 * 



RETURN 





RETURN 


««**«■» *«*«*«*** 


< 


( 

CHART LG. IJXD17 SKIP 
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CHART LH. IJX017 READIN 


13o 





















*A1****» 

M 0 V 31 


*A2***«* 

MCV21 


*«***B2*«***» 


INPT = 

INPT— 
21JKMEL 


I NPT = 
INPT- 
IJKMBL 


< 


RETURN 


**«A4*«*** 

M0V021 


OPT, 
OPT- 
IJKM3L 


***•••**•*•***• 



CHART LI. IJXD17 


MOV3l*MOV2L» MOV21 
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CHART LJ. IJXD17 


MUVOUT 
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i 


( 

CHART 


OLT * 



X 

OPT 

GT OBU2 

'♦NO 

*.^YES 

**C2«*****» 

* PUT CUT * 

C3* * * *. 

.*'* OREC *'♦. YES 

♦*C4*****»* 

* PUT OUT ** 

****C5********* 

* * 



'♦NO 



X 

OR EC=2 

‘♦.^YES 

**D2*«*«*** 

** PUT CUT ** 

...X* CBU1 * 

X 

**03******* 

♦ WAIT FOR ♦ 

♦^ TEXT I/O * 



♦NO 







X 

****E2****«««** 

...X* RETURN 

X 

«****E3**»******* 

* M0V021 * 

_ * MOVE 0BU2 ♦ 




TC CBU1 


LK. IJXD17 OUT 
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EOPACT 


MVI 

0(OPT) j 
EOP KEY 



* PUT OUT * 

* LAST * 

* RECORD * 


X 


El* 

.** OVSM 
*. =C 


*E2*«***« 
IJXD2C 


***YES 



CHART LL. IJXD17 


EOPACT 
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• A1 ***** 
IJKMNM 


GET NAME 
FROM 
I JKMVC 



* * *******< 

STORE 



IJKMVC 



TO NAME(2) 


*• 

««*******•»< 

it* 


IJKMVC 
GT THAN 
64K 


****E2******* 
ERROR EXIT 


X 


«*•«*******««** 


CHART LM. IJXD17 


IJKNN 
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INTREST 


a r 

I 



X 

Bl"*'*. 


.*"%UNPT)*"*- NO 
*. =X 13 -*... 


*"*YES 


••••82********* 
X* ERROR EXIT * 
*••••••«*•*•«•• 


X 


.*. 

Cl *- 

** 

***C2********- 

** 

*** 

**C3******* 

*** 


•’interest."*, no 


SET 

* 

*-* 

ASKIP 


••••C4********* 

FUNCT .*. 

...X* 

OVSWIT 


....X* 

PUT OUT 


. . - . X* RETURN * 

•« •* 


TO 1 



FUNCTION 



• * 

* _ m * 

** 


* 

fr* 

*«* 

UNCHANGEC * 

************** 

*************** 

♦YES 









» * * * 01 ********** 

TRANSLATE * 
LIBNAME AND * 
CALL CORRESP 
LINK ROUTINE 


•••••••• 


•••••••• 


***E1****** 
RETURN 


CHART LN. IJXD17 


INTREST 
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« Ml * 

* 

N2 


* N3 

l 

* N4 

£ 

* 

N6 

* 


















#**#*♦**#***#* 





X 


X 


X 


X 



X 


♦****B1********** 


***B2 *****«•» 


*«***B3******** 

*■* 




• Bit****** 


* * 

* 


» 

« 

* 


* 

* 


* 

* NSOLL = 1 * 

* 

NSOLL=2 

* 

* NSOLL=3 

* 

* NSOLL =4 

* 

« 

NSOLL =6 

• 


* 


• 




* 

* 


* 




* 








« * 



* 


* 



* 



««**«***«««»«**** 





#» 

*************** 


**** 



lx... 











X 











Cl'*'*. 


#«*C2******* 










» 

SETERR 

• 


* 






.« 3(INPT) *. YES 


*-*-*-*-*-*- 









*. “NSOLL .*. 

1. .X* 

SET ERROR 

*• • • • 

• *..X* RETURN 

* 






« , . * 

* 

BIT 

* 

* 

* 






*. . * 

* 


* 


* 







*‘*N0 



CHART LU. IJX017 


Nl ,'N2tN 3,N4,N6,N12 tN13 
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YES 

* . . . 


«*B2******«*» 

RETURN 


* * * * *C1 »**•***»*•** 



*■»*•# *D1 **#****»■»* 

•» R4= * 

* R4 + * 

* ERROSW * 


#****E1********** 

* MVC * 

* 1 (^ 1 , » 

* TREYT * 


INCREASE 
ERRSto 
BY 2 


****************** 


*#*«G1*»******* 

* RETURN * 


CHART 


LP 


IJXD17 


SETERR 










*A1«**** 

FUNCTA 


GET ACCR- 
OF ARG.IN 
ACEL 


MOVE OP1 
= R A TC 
MAKC+4(6) 


ALL 

ARGUM.= 
ALTOM 


MOVE CP2 = 
GWS8 TC 
MAKG+10C6) 


GET NAME 
FROM 
COM REG 


MOVE 
NAME TO 
STAEL+1 


MOVE 0P21 
STAEL (6) 
TO 

MAKC+10 


X 





X 


*****H1********** 





****FI3****hhhh 


* PMAKC * 







* PUT OLT *X... 





MOVE NAME 
OF ARG. 


* MAKRO * 





TO 


* MAKS * 





MAKO+10(6) 



*J1.****. 

CONSWIT 


**B3****+»* 


GENERATE 
LIB CALL 
MAKRC 


.* LAST 
.X*. ARGUM. 
*. PROG. 


TEST IF 
SPECIAL 
FUNCTION 


UPDATE 

NEEDED 

GWS 


ARG. *. YES 

= ST ATIC .*- 

VAR. .* 


ALL 

ARG= 

AUTOM 


GENERATE 

ADDRESS 

CONSTANT 


GENERATE 
NOT OPTIM. 
CONSTANT 



PUT OUT 
MAKRO 
MAKO 


INCREASE 

ARGUMENT 

PCINTER 


*****J5***«* 


INCREASE 
MODIFIER 
IN MAKG+7 
BY 4 


CHART LQ. IJXD17 


FUNCTA 
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MOVE 

ADEL+4 

TO 

ADEL+12 


*««#*D1****** 


MOVE 

/kDEL + 8 TO 
ADBL+4 






****F1***** 

* RETRUN 

* 

*••*•••**** 


CHART LR. IJX017 



REPROUN 


14o 













MV I 

AUTOM = 
X Cl 


**D1* 

AR R4,R5 


*E3********** 


»*F3*****«*»** 
N=N-1 * 


**H3********* 
RETURN * 


CHART LS. IJXD17 ARGADR 
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*** **H 

GENADCO 



MOVE 
NAME TO 
ADCO+3(2) 


MOVE NAME 
ANC MCOIF 
OF ARGUM 
TO ADCO+8(4) 


*«G1*«**»* 
LA RCt12 


*K1***** 
RETURN 


CHART LT. IJXD17 


GENADCO 


142 

























«*A1 


El *. 
CONSfc 


MCVE 
NAME TO 
CO+3 


CONSW= 
X Cl 


************* 


«***E1 


LA R0,12 




LA Rl»CO 


CHART LU« IJXD17 


GENCO 
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*A1«**** 

PMAKC 


**A3*»** 

PUCO 


LOAD 
LENGTF 
OF MAKC 
IN RG 


GENERAL 

MOVE 

ROLTINE 


*E1«**** 

RETURN 


INSERT 
LENGTH 
OF CONST. 
IN RO 


ADD FIXED 
L ENGTH= 

13 

************** 


*D3********** 


STORE 

SKIPP. 

LENGTH 


*****E3********** 

* MOVE F3 * 

* KEY AND * 

* SKIP. LENG. * 

* TO 9 (R5) * 

* * ************** * 


************ 


GENERAL 

MOVE 

ROUTINE 


***H3*»******* 
RETURN * 


CHART CV. IJX017 PMAKO.PUCO 
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CHART 


*A1***** * 
SPECFUN 


MAX/ 
MIN NO 
134-14! 


INC,REP 
NO 127 - 
129 


FI *. 

* TRUNC *. 
FLOOR, * 
CEIL NO 
201,2C5 .* 
*- 217 .* 

* *N0 


G1 *. 

* TRUNC *. 

FLOOR *. YES 

CEIL NO .*_ 

203,207 .* 

*. 219 


FLOOR/ 
CEIL BIN. 
FIXED 


FLOOR/ 
CEIL DEC. 
FIXED 


*NG 


MOD 

DEC.FIX 
NO 211 


ROUND 
NO 213 
215 


X 

•*K3***** 

RETURN 


LM. IJXD1T 


SPECFUN 
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*A1***** 
ECGLF 


MOVE 
MAKC< 6) 
TO MVIMAK 


CLEAR 

MVIMAK+7 

(2) 


*E1***** 

L R5, 
G(R4) 


*****F1******* 

* MOVE L = 

* 7 ( R 5 ) TO 

* MVIMAK+1C 


MV I 

MVIMAK+ 
X C4 


MOVE L= 

7 (R 5 J TO 
MV I MAK + 1C 


MVI 

MVIMAK+8 
X QC 


*C2**»** 

L R5, 
12CR4) 


MOVE L= 

7 ( R 5) TO 
MVIVAK+1C 


«*F2***** 

RETURN 


CHART LX. IJX017 


BUOLF 
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i 


**A1********* 
MAKIFI 


GET NAME 
FRCM 
COMREB 




MVI 

ADCO+5, 
X 60 


CLEAR 
ADCG+3(2) 
AND 

ACCQ+10(2) 


•F3***** 

RETURN 


MCVE 
NAME TO 

AOCG+8 


***H1********** 


X 


* B3 * 


( 

CHART LY. IJXD17 MAMIFU 
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/# \ 


*A1****«* 

INCHARF 


MOVE 

MAKC+4(6) 
TO 

MVIMAK+4 


CLEAR 
MOCIF IN 
MVIMAK+7 
(2) 


***D1******* 
L R4, 

ELOCKARG+C 


MOVE L1= 
8(R4) TO 
MVIMAK+1G 




MV I 

MVIMAK+8, 
X C4 


BLOCKARG+4 


««»*J1******»*** 

MOVE L2= * 
8(R 4) TO * 
MVIMAK+1C * 


*« 2 ****« 

RETURN 


CHART LZ. IJX017 


INCHARF 
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( 


*A1 ****** 

HIGHLOW 


IS 

ARGUM.X 

DEC.INT 

♦.CONST.* 


SET 

ERROR 

f*ASK 


****E4***** 
* RETURN 


i 


CONVERT X 
TO EIN, 
INTEGER 


LESSTHAN 
♦.LENGTH OF.* 
*.TARG .* 


****H2***** 
* RETURN 


( 

CHART MA. IJXDI7 HIGHLOW 
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ACDRF 


MOVE 

OP1=G(R5) 
TO MAKO+4 


MOVE 
0P2 = 

0<R4)TO 

MAK0+10 


PUT OUT 
MAKRO 
MAKO 


RETURN 


X 


CHART MB. IJXD17 


AODRF 


15o 



















i 


*A1**** 

MCCF 


CLEAR 
MOD IF IN 
MVIMAK 




****«E1******* 


**F1»****» 

INCREASE 
9 EY 
128 


**G1******* 

STORE Q 
TO 

MVIMAK+1C 


**C2****** 

INCREASE 
9 BY 
128 


**D2* 

STORE Q 
TC 

MVIMAK+1G 


**G2***»* 

RETURN 


c 


CHART NA. IJXD17 MODF 
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/T 


*A1 

FLCEILF 


CLEAR 

MODIFIER 

IN 

MVIMAK+8 


INSERT 
Q IN 
R5 


INCREASE 
Q 6Y 
R5 


STORE 
Q TO 

MVIMAK+10 




*J1«**«* 

RETURN 


€ 

CHART NB. IJXD17 FLCEILfi 
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**A1***«* 

FLCLDF 


PAR. 

BLOCK IN 
. STAT. 

*.STCR .* 


MOVE 
NAME TO 
STABL+1 


MOVE 

ST ABL(6) 
TC 

MAKC' + ID 


GET NAME 
FROM 
COMREC- 


MOVE 
NAME TO 
CECFC+3 


GENERATE 
ADCON FOR 
DED 


* *C 2 * * » * * 
RETURN 


PUT OUT 
MAKRO 
MAKO 


* RETURN 


MOVE 

G+I28 TO 
DECFC+9 


MOVE 
PS TO 
DECFC + 8 


MOVE 
PT TO 
CECFC+10 


X 


* A2 * 

, 

CHART NC • IJXD17 

FLCLDF 
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•»*A1****** 

GENCEDAD 


CLEAR 
ADCQ+3(2) 
=INT«NAME 


CLEAR 
ACC0+1Q(2) 
=MOCIFIER 


MOVE 
NAME OF 
DEC TO 
ADCC+8(2) 


**E1«****» 
LA RQt12 


***F1******* 
LA R 1» ACCO 


PUT OUT 
ACCRESS 
CONST. 


«H1***** 

RETURN 


CHART NO. IJXD17 


GENDEOAD 



154 














#•# A1 ***** 
MCCDF 


* MCVE C2 

..X* TC 

. * DEDXY+11 


GET NAME 
FROM 
COMREG 


MOVE 
NAME (2) 
TO 

DECXY+3 


*D1**** 

L R4« 
ACBL 


**C2* 

MOVE P3 
TC 

DEDXY+12 


MOVE PI 
TO 

OEXXY+8 


X 

Q128 


* PAR * 
BLOCK IN 
*STAT. STGR.* 


MOVE 
Q1 TO 
DECXY+9 


*H1***** 

L R4, 
ADBL+4 


-*MOVE-P2* 
TO 

CEDXY+10 


MOVE NAME 
TC 

STABL+1 


**J2*****« 
MOVE 

STABL (6) 
TC 

MAKO+IO 


*K3***»* 

RETURN 


X 

**** 


CHART NE. IJXD17 


MOODF 
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*A1****«* 

ROLNDEF 


GET NAME 
FROM 
COMREG 


ALL 

ARG.IN 

STATIC 


GENERATE 
ADCON FOR 
DED 


MOVE 
NAME TO 
DECFC+3 


MOVE P 
TO 

DECFC+8 


MOVE 
NAME TC 
STABL+1 


MOVE 

STABL 16) 
TG 

MAKO+IO 


X 

» F3 «***« 

RETURN 


DE 


MOVE 
‘ TO 
CFC + g 


L R41 
ADEL+12 


CONVN 

CONVERT 


MOVE N 
TO 

DEC FC + IO 


CHART NF. IJXD17 


ROUNDBF 
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*A1***** 
CGNVN 


INSERT R5 
LENGTH 
=21(INPT) 


X 

*****C1********** 


LA R6, 
COUELE+8 



* SR R6,R5 


STORE 
LENGTH 
IN MOVE 
INSTR 


MOVE 

CONSTANT 
IN DOUBLE 
WORD 



* CONVERT * 

* TO * 

* BINARY * 



X 

*****H1********** 


* STORE * 

* CONV.CONST * 

* TO N * 


TEST IF 
DEC.INTEG. 
SPECIFIED 


*K1****» 

RETURN 




CHART NG. IJXD17 


CONVN 
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REPE 


L R4, 
ADBL+12 
= ARG.N 


MOVE N 
TO 

MVIMAK+10 


MOVE 

MAKQ+4(6} 
TO MVIMAK 


SET MOCIF 
IN MVIMAK 
=4 


MOVE L 
TO 

MVIMAK+10 


*«***«*« 


CLEAR 
MOD IF IN 
MVIMAK 


PUT OUT 
MVIMAKRO 
FOR L 


*K3***»* 

RETURN 


CHART NH. IJXD17 


REPE 
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* EXPOA * 



*****B1«********* 
* ARGADR * 


* GET * 

« ADDRESSES * 


MOVE 

OP1RA TO 
MAKC+4(6) 


PUT OUT 
MAKO FOR 
ARG.X 


MOVE 

0P1RC TO 
MAKO+4(6) 


MOVE 

OP1RB TO 
MAKG+4(6) 


MOVE 

OP1RD TO 
MAKl' 1 +4 ( E ) 


MOVE 

OP1RC TO 
MAKO+4 




X 

**D3**»**«* 

PARG 

PUT OUT 
MAKRO FOR 
TARGET 


GENERATE 

LI8CALL 

MAKRO 



RETURN 


CHART NI. IJXD17 


EXPOA 
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PARG 


MOVE 

0(R4) TO 
MAKC+1C(61 


PUT OUT 
MVA 
MAKRO 


*E1* 
RETURN 


CHART NJ. IJX017 


PARG 
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**A1***** 

EXPOB 


GET ADCR. 
OF 

ARGUMENT 


MOVE 

OP1RA TO 
MAKG+4(6 ) 


L R4, 
ACER.X= 
ADEL 


PUT OUT 
MAKRC FOR 
ARGUM. 


MOVE 

OP1RB TO 
MAK0+4(6) 


GENERATE 
DEC FOR 
ARG.X 


MOVE 

CPIRC TO 
MAKG + 4(6} 


X 

**K1 ******* 
PARG 

PUT*OUT* 
MVA MAKRO 
FOR N 


MOVE 

CPIRD TO 
MAKQ+4(6) 


X 

**«C2****«** 

PARG 

PUT CUT 
MAKRC 

FOR TARGET 


MOVE 

OP1RE TO 
MAKQ+4(6) 


GENERATE 
DED FCR 
TARGET 


MAKRC 
FOR LIB. 
CALL. 


*»*G2****« 

RETURN 


CHART NK. IJXD17 


EXPOB 
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GET NAME 
FROM 
COMREG 



* MOVE * 

* STA8L TO * 

* MAKQ+1G(6) * 


PUT OUT 
MVA MAKRO 
FOR DED 


*****F1********** 

* DECGEN * 

* GENERATE * 

* CED * 


*G1***** 
RETURN 



CHART NL. IJXOI7 


DED 
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( 


* A1 * 

DJECGEN 


6(R4) 
= DEC . 
FIX 


* ERROR 





**C3*****-***** 

MOVE * 

NAME (2) * 

TO * 

FLT+3 * 

■»»*****«■*•»**** 


6 (R4) 
= B IN. 
FLOAT 


STORE P 
TO 

FLT + 9 




*G3********** 




* RETURN * 


CHART NM. IJXD17 


DEDGEN 
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/ T" 

V_, 


**A1****** 

DYNDUMP 


GET NAME 
FROM 
COMREG 


MOVE 

OP1RC TO 
MAKC+4(6) 


GET NAME 
FROM 
COMREG 


MOVE 

OP1RA TO 
MAKO+4(6) 


MOVE NAME 
TC 

STABL+1(2) 


.* LAST *. YES 
..X*. ARGUMEN .*.... 
. *. PROC. .* 


* MOVE * 

X* ENDKEY IN *. 

* L BLOCK * 

***************** 




GENERATE 
NOT OPT. 
CONST. 


X 

*65****** 

LIBCALL 


******** 


**C5***»* 

RETURN 


MOVE NAME 
TO 

STABL+1(2) 


MOVE 
STA EL(6) 
TO 

MAKO+IO(6) 


PUT OUT 
MAKRO 
MAKO 


CLEAR 
L BLOCK+6 
( 26) 


MOVE 

ST ABL(6) 
TO 

MAKO+IO 


PUT CUT 
MAKRO 
MAKO 


X 

***D3*«****« 

GENCO 

GENERATE 
NOT OPTIM. 
CONSTANT 


MOVE 
NAME OF 
ARGUM. TO 
MAKO+IO 




PUT OUT 
MAKRO 
MAKO 


X 

***G3******* 

PLENG 

PUT LENGTH 
OF VAR IABL 
TO LBLOCK 


MOVE 
NAME TO 
L BLOCK + 3 


INCREASE 
MODIFIER 
IN MAKO+7 
BY 4 


INCREASE 
ARGUMENT 
POINTER 
BY12 OR 34 


*****K3********** 
* N=N-1 * 



CHART NN• iJXD17 



DYNDUMP 
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****A1********* 

* PLENG * 



L R5, 
ALELOCK 


IS 

ARGUM. 
.AN ARRAY 


IS 

ARGUM. 
.A STRUCT 


MCVE LENGTH 
FROM BYTE 
10+11 TO 
Q(R5) 


MOVE 
LENGTH 
FROM BYTEF 
TO Q(R5) 


****G1*«***« 
* RETURN 


CHART NO• IJXD17 


PLENG 
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MOVE 

OP1RA TO 
MAKC+4<6) 


MOVE 

12 ( INPT ) TO 
MAKQ+10(6) 


GENERATE 

LIECALL 

MACRO 


CHART NP. IJXD17 


TIMDAT 
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( 


( 

CHART 


■&A1 «■»*** 
FLTF.C 


MOVE OP2 = 
X C fc J TO 
MOVMAK+1C 


»C4***** 

RETURN 


MOVE L = 

19(INPT) 
TO 

M0VMAK+I6 


PUT OLT 
MOVE 
MAKRG 


0IMAK+-4 ( 6 ) 


INCREASE 
MODIFIER 
BY 3 


INCREASE 

MODIFIER 

BY7 


A3 * 


NQ. IJXD17 FLTRO 
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**A1 **■ 





LA R0» 7 



X 

*E1****«* 

MOVGUT 

PUT OUT 
LIBCALL 
MAKRO 


SET BIT 
FOR THE 
FUNCTION 


**G1****» 

RETURN 


CHART NR. IJXD17 


LIBCALL 
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SET 


*A1«* 

BIT 


INSERT 
LIENAME 
TO RA 


STC 

RA,INSTR 
+ 1 


TRANSLATE 

INSTR+L, 

TRTAB 


***K1******* 

01 

G(RB),MASK 


*K2****» 

RETURN 


CHART NS. IJXD17 


BITSET 
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CHART 




L R4 t 
ADBL+12 
=TARGET 


MCVE 

0(R4) TG 
MAK9E+4 




MCVE J 
TC 

MAK9E+16 


CONVERT J 
TO BIN. 
INTEGER 


PUT OUT 
MAKRQ 
MAK9E 


1 LE J LE K 


PUT CUT 
CONST. IF 
ANY 


*FI****** 

L RA. 
ADBL=CS 


*F2***» * 
RETURN 


MCVE 

C(R A) TO 
MAK88(6) 


*#J1«***#* 

MOVE I 
TO 

MAK88+10 


PUT OUT 
MAKRO 
MAK88 


NT. IJX017 


T S C S I J 


17o 





















**A1 


***»B2********* 
MVI 

ERREYT t 

ERRCRN 


*D1***«* 

RETURN 


INCREASE 

INPUT 

POINTER 


c 

CHART NU. IJX017 CHECKJK 
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*A1«**** 

SCSIJT 


GET POINT. 
TO 

ARGUMENTS 


MOVE 

0(R4) TO 
MAK86+10 


MOVE 

7(R4)=L2 
TC 

MAK86+I76 


MOVE J 
TC 

MAK86+16 




L R4« 
A0BL+4= 
CS 


PUT OUT 
MAKRO 
MAK86 


MOVE 

0(6,R4) TO 
MAK88+4 


MOVE 
0(6,R4) 

TO MAK88+10 


****H2**««* 

RETRUN 


CHART NV. IJX017 


SCSIJT 
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CHART 


*A1*«*«* 

TBSBST 


..X* GET NAME 
. * FROM 

. * COMREG 


GET POINT. 
TO THE 
ARGUMENTS 


EXCHANGE 
POINTERS 
IF NO 144 


CONVERT J 
TO BIN. 
INTEGER 


**E1****** 

CHECKJK 


MOVE 

OP1RA TO 
MAKC+4 


L R4 f 
ACBL 

=A(SOURCE) 


MOVE 

0(R 4) TO 
MAKO+1G 


PUT OUT 
MAKRG 
AMKO 


MOVE NAME 
AS OPERAND 
IN MAKO+1C 


MOVE 
OP1RB 
TO MAKO+4 


X 

E2* ** »• 

SUBSTR. 
= X 


**G2********* 
MOVE 

OP1RC TO 
MAKO+4 


L R4 t 
ADBL+12 
= A(T ARGET) 


MOVE 

0{R4) TO 
MAKO+IO 


GET NAME 
FROM 
COMREG 


MOVE NAME 
AS OPER2 
TO MAKO+ 
10 


MOVE 

0P1RD TO 
MAKC + 4 


*D4****+ 

PMACO 


X 

* E4 **'*' 

SUBST 

=X 




GENERATE 

LIBCALL 

MAKRO 


****K4***** 
* RETURN 


NW. IJXD17 


TBSBST 
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INCREASE 
MODIFIER 
BY 3 






MOVE 
STAEL TO 
MAK9E 4 


* 

MOVE * 

MOCIF=2 * 

TO MAK9E+8 * 


#HHH»*G1##*#****** 


* MOVE * 

« 0 (R4) TO * 

* MAK9E+1Q * 


CHART NX. IJXD17 


T SUB ST 
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**»*A1 


*C1********** 




MVC 

ESS+9(1) 
8 (R 4 ) 


t 




* MOVE NAME * 

* TO * 

* BSS+3 * 


»*■**#«•***»*»***** 


***•»**«•** 

* RETURN * 


c 

CHART NY. IJXD17 SUBSTT 
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EXCHP 


##**B2**« 

.X# RETURN 




* RETURN * 

« * 
#«««*«*#**##*«* 


CHART HI. IJXD17 


EXCHP 
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FLT 


*. LNG 


*A5***«** 

KEY XS)3B3 


TEST 
FIX CR 
FLOAT 


DEC .* TEST 

_*. BIN OR 

*. DEC 


TEST 

LONG 

SHORT 


GENERATE 
AND MOVE 
MACRO 


**** 

* SIGN 


.* TEST 
•X*. FIX OR 
*. FLOAT 


KEY X32A5 
OFFSET 
L-l 


GENERATE 

AND 

MOVE MACRO 


****E5*»**< 

RETURN 


>X. . 


CHART GA. IJXD20 


AB S » SIGN 


177 

























CHART 



*«A2*«*-***** 

INTREST 


BULT IN *. NC 
PUNCH CN 


***** B 3 ****** * 

* COMMENT.. 

X* ILLEGAL 

* ERROR 

* EXCEPTION 


* GET 

* FUNCTION 

* KEY 


ALL FUNCTION ROUTINES 
USE SUBROUTINE SETPNT 
TO SET POINTER 
..TO.THE SOURCE ARGUMENTS 




************** 


ILLEGAL KEY * 
SKIP THIS *. 
FUNCTION * 


00. IJXD20 


INTREST 
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****A2 


CHART 


* GENERATE * 
•STRING VARIABLE* 

* (FUNCTION * 

* ALL OR ANY) * 


*NC 
I X. . 


^C2 

SAVE SW 


GENERATE 
SAVE AREA 
FOR 

REG SAVE 


MOVE CUT 
END OF 
PROGRAM 
KEY 


LOAD 
PHASE 
IJXD40 


**F2«***«*» 
CONTROL 
TO IJXD4G 


OE. IJX020 


ENO OF PROGRAM ACTION 
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«A1**** 

SUMF 


FUNCTICN 
IS ADD 

FUNCTICN KEY 
X3303 (AD) 


FUNCTICN 
IS MULT 
FUNCTICN KEY 
X3323 (MD) 


TAKE 

FLOAT REG 
TO HOLD 
RESULT 


SET 

NOPSW 

ON 


*«•*•*****••• 


GET 

ARRAY LENGTH 
SOURCE ARG 
FROM INPUT 


B4 *. 
NOPSW 


SET SWITCH 
VARBSW 
ON 


MOVE OUT 
MACRO FOR 
INITIAL VALUE 


********** 


• El**** 
ANYF 


FUNCTION 
IS AND 

FUNCTICN KEY 
X3663 (NC) 


FUNCTICN 
IS QR 

FUNCTION KEY 
X3673 (CC) 


INITIAL VALUE 
OF RESULT 
STRING 
ALL ONES 




INITIAL VALUE 
OF STRING 
ALL ZEROS 


* MOVE OUT 

* MACRO 
•INITIALISATION 

* OF LOOP 


* NEXT *. 

STATEMENT . 
*.KEY=X2F83.* 


**F4********* 

MOVE OUT 
MACRO FOR 
SAVE REG 
SAVESW ON 


•HI***** 

RETURN 


PUT STATEMENT 
INTO OUTPUT 
INCREASE 
INPUT POINTER 


.* NEXT 
. STATEMENT 
*.KEY=X3F83. 


* MOVE OUT 
♦FUNCTION MICRO 
« TERMINATION 

* OF LOOP 


MOVE OUT 
MACRO FOR 
LOAD BACK 
REGISTER 


* SUM, PROD *. 

TARGET .*X. 
*.IS SHORT .* 
♦FORMAT.* 


♦SET FUNCTIONKEY* 

* FROM LONG * 

* TO SHORT * 


GET TARGET 
FIELD FROM 
INPUT 


CHART OF. IJXD20 


SUM* PROD »ALLt ANY 
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CHART 


.* BIN 

. OR 

*.DEC FLOAT. 


CHANGE 

DEC PRECISION 
TO BINARY 


•CALCULATE SCALE* 

* QX-QF * 

* KEY= X3062 * 


* KEY=Xai52 * 
•CALCULATE CF-QX* 


CALCULATE 
FLCOR(PF+1)/2 
FLOOR(PX+1)/2 


.X*. P(Xi GT 21 


ASSIGN 

SHORT-SHORT 

KEY=X3263 


KEY =X246a 
ASSIGN 
SHORT-LONG 


GENERATE 
MACRO AND 
PUT GUT 


*F2«*««« 

RETURN 


01. IJXD20 


SUBROUT ASSIGN 
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* A4 


/f 


*A1****» 

IJXC2C 


*************** 


* SET POINTER 

* TO 
•LINK REG STACK 


INITIATION 
•GET BUF POINT* 
•euF LENGTH * 


**«**A2******* 

* SCAN 

X* STATEMENT 

* KEY 




*NC 


X 




* 


:*__ 


X 

**C1******* 


X 

C2* ** *. 

»»C3******* 

. *NO 

C4 *. 

***c*C5** 


SET SEVERITY 
BIT IN 
END OF 
STATEMENT 


X3F0tF2*F3. 

* F 61 F7»FD3 *. YES 

KEY .*.... 


SKIP ROUT 
SKIP 

STATEMENT 


F2 *. 
X3FI,F4 ? F5. 
*F8,F9,FA,FB*. YES 
FE3 KEY 


'X, 


**F3******* 

* INCRE * 
*-*-*-*—*—*—*— 
SKIP ROUT 
* INCREASE 
•INPUT POINT* 


**»**G4********** 

* EXECUTION * 

* OF THE ROUT * 

* FOR THIS *. 

•BUILT IN FUNCT * 


END OF 

PROGRAM 

ACTION 


COMMENT.. 
EXIT NO 
IS ILLEGAL 


••*«•**• 


**J3»****** 

LOAD 

PHASE 

IJXD49 

•*••****••* 


CHART OK. IJXD20 


GENERAL FLOWCHART 
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CHART 


NUMBER INGA) 
GF GIVEN 
ARGUMENTS 
TG R1 


COMPARE 
NGA GT 
MAXN 


**A4******* 
SET 

ERROR NR 
= 126 
SKIP 

STATEMENT 


ERROR 

RETURN 


SET POINTER 
R4 TO FIRST 
ARGUMENT 
(TARGET ) 


*****03********* 

* CALCULATE 

* DIFFERENCE 
•NGA-N REQUIRED 

* =NUMBER OF 

* ARG TO SKIP 


IS *. YES 

SKIP ARG .*.... 
. =CONST .* 


SKIP 
12 BYTE 
ENTRY 


**«**E4********* 


***************** 


•****G4******* * 

* SET R5 AS 

* POINTER TO 

* SECOND OR 

* ONLY ENTRY 
*******•••**«»* 


IS THIS *. YES 

ENTRY .*- 

CONST .* 


GENERATE 
CONSTANT 
AND PUT 
INTO OUTPUT 




LET R6 
POINT TO 
THIS ARG 


YES .* IS * 

....*. ONE MORE 

*ARG REQURD.* 


*«**K4***«* 
* RETURN 


GL. IJXD20 SET POINTER 
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/€ 

V 


*A1«**«* 
IJXC40 


*«***ei««***»*** 

•INITIALISATION 


READ 

TEXT 

RECORD 


INITIALIZE 

SCAN 

POINTER 


* C3 *....X* 


***B3«*****-» 
REWIND 
AND SWITCH 
BOTH 

TEXT MEDIA 


READ 

TEXT 

RECORD 


INITIALIZE 

SCAN 

POINTER 


FETCH IJXD79 


MODIFY 

SCAN 

POINTER 


PERFORM 

PROCESSING 

OF 

TEXT ITEM 


MODIFY 

SCAN 

POINTER 


*****F4******* 


CHART OP. IJX040 


GENERAL FLOWCHART 
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*A1***** 
IJXCAC 


**-»nt*Bl********* 

•INITIALISATION 


SET 

POINTERS 
FOR TEXT 
OUTPUT 


SET POINTERS 
FOR 

ON-REVERT 

ITEMS 


**** El «*«**«* 

CLEAR 
SPACE FOR 
FIRST 
ITEM 


SET 

POINTERS 

FOR 

TEXT INPUT 


SAVE NAME 
FOR FIRST 
BLOCK TABLE 


READ FIRST 
RECORD OF 
TEXT 

* INPUT 


READ SECOND 
RECORD OF 
TEXT 

• INPUT * 


C4 *. 

.X*:* MACRO 


END OF 
BEGIN 
BLOCK 


RESET 

BLOCK 

INDEX 


*F4********* 

SAVE 

LABEL 

NUMBER 


BLOCK 

INDEX 

SET 


*H4********** 


OMIT 

MACRO 

FOR 

OUTPUT 


CHART 00. IJXD40 


1. SCANt MAIN PART 
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MOVE NAME 
FOR 

STATIC STOR. 
TABLE 


SET INDEX 
FOR 
BLOCK 


SAVE 

BLOCK 

PREFIX 


***C3******** 
INSERT 
BLOCK TABLE 
NAME IN 
PROLOG 
MACRO 


INSERT INDEX 
FOR NO CN 
IN 

PROLOG MACRO 


X 

****D3******* 

INSERT 
ENTRY NAME 
IN 

PROLOG 

MACRO 


SET 
MACRO 
LENGTH 
TO 12 




RESET 

ON COUNTER 
TO ZERO 


***H1******** 
SET POINTER 
FOR BEGIN 


CLEAR 

CONSTANT 

HEADER 


SUBROUTINE TC 
INSERT STAT. 
STOR.TAB. 


****F2******** 

SET END OF 
BLOCK FLAG 
BIT IN 
STATIC 

STORAGE ITEM 


***«*G2********** 


MODIFY 
ON OFFSET 
BY 4 


•***«F3**»«» 


**H2***««* 

SET NEW 
POINTERS 
FOR GN 
ITEMS 
IN BLOCK 


CLEAR SPACE 
FOR 

NEW CN ITEM 


BUFFER 

ENTRY 

NAME 


*****G3********** 
•MODIFY BUFFE* 

* POINTER * 

* FOR * 

* ENTRY * 

* NAMES * 


TABLE 

SPACE 

FULL 


*07** 
* Bl* 


MODIFY 
MACRO 
LENGTH BY 
9 


X 

**E4***«*« 
INSERT 
FLAG BIT 
FOR 

WARNING 

MESSAGE 


«F4********** 


MODIFY 

TEXT 

POINTER 


****«H4********** 

* INSERT * 

* WARNING * 

* MESSAGE * 

EB76 * 




*****K1******* 

* SET BASE 

* FOR 

* ON OFFSET 

* TO 8 


•••*K2********* 

TRANSFER 
PREFIX IN 
HEADER FOR 
STAT. STORAGE 
TABLE MACRO 


CHART OR. IJXD40 


1. SCAN, PROLOG MACRO 
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«*A1***** 
K ITAE 


SAVE 

RETURN 

ADDRESS 


OUTPUT OF 
TEXT 
UP TO 
POINTER-1 


ANY 

PROLOG 

MACRO 


X 

**El*+***»* 
INSERT 
MACRO 
HEADER IN 
OUTPUT 
TEXT 


INITIATE 

POINTER 

FOR 

ENTRIES 


*-X* A4 


MOVE 

ENTRY NAME 
TWICE IN 
ADDRESS 
CONSTANT 


INSERT 
ADDRESS 
CONSTANT IN 
OUTPUT TEXT 


MODIFY 

POINTER 

FCR 

ENTRIES. 


**»J2**«***«* 
INITIATE 
POINTER FOR 
CURRENT 
CN-REVERT 
ITEMS. 


.* ONLY 
*. REQUEST BY 
*. REVERT . 


INITIATE 
CONSTANT 
POINTER IN 
MACRO 


CLEAR 
CONSTANT 
PLACE IN 
MACRO 


«»»*E3*»»*»*»* 
SET CONSTANT 
LENGTH FOR 


**F3********* 

MOVE 

CONDITION 
CODE IN 
MACRO 


INCICATE 
LAST ON 
IN BLOCK 


MOVE 

ITEM 

AHEAD 


MODIFY 
POINTER FOR 
REVERT GNLY 
ITEMS 


MODIFY 
POINTER FOR 
ITEMS 


TRANSFER 

SPECIAL 

PART 


MOVE 

FILENAME 

IN 

MACRO 


MODIFY 
POINTER FOR 
CONSTANT 


SET CONSTANT 
LENGTH TO 
1 


* END *. 

QF ENTRIES .*X. 


.X.X. 

X 


* MODIFY 

.* POINTER FOR 

* ITEMS 


* ONLY *. YES 

REQUEST BY .*_ 

*. REVERT .* 


INSERT 
WHOLE MACRO 
IN OUTPUT 


MODIFY 
POINTER FOR 
REVERT ONLY 
ITEMS 


CHART OS. IJXD40 


1. SCAN, INSERT STAT. 


STOR. TAB. 
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/0 ' 

( 

'V... 


ERROR *. YES 
ALREADY .*.... 
FOUND .* 


SET 

PREVIOUS 
STARTACDRESS 
FOR TEXT 
INPUT 


•***B3*»»*****«* 

CLEAR * 

NEW ITEM * 

SPACE * 


****C3********** 

SET FLAG * 

BIT FOR * 

REVERT * 

IN ITEM * 


••••03********** 

MODIFY * 

ON COUNTER * 

BY 1 * 


•••••E3******* 

* MOVE 

* CONDITION 

* CODE IN 

* ON ITEM 


•*»*G3********** 

MOVE * 

FILENAME * 

IN * 

ON ITEM * 

■••••*••••••«•** 


•••••J3*••«•*••** 

* SET FLAG BIT * 

* FOR * 

•FILE PARAMETER *. 

* IN » 

* ON ITEM. * 


***»*F4********** 

* MODIFY * 

* END POINTER * 

X* FOR * 

* ON REVERT * 

* ITEMS * 

***************** 


TABLE 

SPACE 

FULL 


SET FLAG BIT 
FOR GN 
IN BLOCK 


*****JU5 ********** 

* RESET * 

* FLAG BIT * 

* FCR REVERT * 

* IN ITEM. * 


GOTO 
IN ON 
UNIT 


*GQ** 
* K2* 


*0Q** 
* K2* 


*****J5********* 

* SET ERROR 

* FLAG BIT IN 

* END OF 

* STATEMENT 


* INSERT * 

.* ERROR *X 

* MESSAGE * 

a**************** 


CHART GT. IJXD40 


1. SCAN« ON—REVERT 
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* * ***A3********** 


OUTPUT 

BUFFER 

EMPTY 


***D2******* 

NEXT PHASE 
D70 


RESET INDEX * 
FOR FIRST * 
SCAN 

*************** 


REWIND AND 
SWITCH 
EOTH 
TEXT 
MADIA 


PYPASS 
CD HEADER 
FOR OUTPUT 


SAME 

PREFIX AS 
. BLOCK . 


MOVE 

BLOCK TABLE 
NAME 
IN MACRO 


***E3********** 

MOVE * 

DO STATEM. * 

PREFIX IN * 

MACRO 


INSERT 

PREFIX 

SETTING MACRO 
IN OUTPUT 



X 



* 



I X 



**G1 ******* 



G2 



. ****«G 4******** 



* READ A * 






* 03A1 



RECGRD IN 



.* BEGIN *. 

CES . 





FIRST 



.X*. OF 



* SUBROUTINE 



INPUT 



*. DC-HEAD .* 



- * KTESCA 



* AREA * 





















*NC 









X 



I X 



X 









***H1******** 



H2 *. 



. H4 *. 












SET POINTER 




rES 


. NO -* END OF * 



FOR 



*. STATEMENT .* 



_*. DO HEADER 



ON ITEMS 




X 














************** * 



*ow * 








*NC 

* Bl* 


* YES 







v 








X 






X 






X 



***J1 ******** 

** 


J2 *. 


*J3********** 

**»**J 4********** 

* 


* 





* 07A4 

* 

• 

SET POINTER 

* 


.*" F2—MACRO **. 

YES » 

BYPASS * 


— * 


FOR 





END OF *X_ 

_* SUBROUTINE 



ON ENTRIES 





DO HEAD * 

* KOTE 
















X **** 








*NC 










*GV * 









* Bl* 








*CU *... 

* * 








* K2* 

* 










X 




X 



X 






***K1******** 



•a»«*K2********** 


K3 *- 

•••••K 4********** 





* C3A1 * 






INITIATE 





BLOCK *. NO 

* INSERT MACRO 



SCAN 


. -xl. 

...» SUBROUTINE * 


PREFIX .* . 

...X* TO RESET 



POINTER 


X 

* KTESCA * 



* BLOCK 









* PREFIX 








*. .* 









*YES 

• 









* 



CHART OU. IJX040 


2. SCAN* MAIN PART 
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CHART 


SAVE 

BLCCK 

PREFIX 


INITIATE 
POINTER FOR 
ON ENTRIES 


POINTER 
FOR GN BLOCK 
TABLE 


* F 3 ******** * 


SET 

NEW POINTER 
FOR REVERT 
ITEMS 


* ON *. YES 

STATEMENTS 
*. IN .* 

*.BLOCK.* 


**J3****** 
SET FLAG 
BIT FOR 
ON IN 
PROLOG 
MACRO 


X 

***** 

*ou * 

* K2* 


OV. IJXD40 


2. SCAN y PROLOG HANDLING 
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SAVE 

STATEMENT 

PREFIX 


END OF 
BEGIN 
BLOCK 


•**H3******** 

INSERT IN 
OUTPUT TEXT 
MACRO TC 
SET STATEM. 
PREFIX 


CHART OW. IJXD40 
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k2* 


SAME 

CONDITION 
. ON IN . 
*. ITEM. .* 


ITEM 
WITH CN 
FLAG 


***«*B4********** 

* MODIFY * 

X* POINTER * 

* FOR ITEMS * 

* BY-4 * 

***************** 


MOVE 

FILENAME 
IN ENTRY 


*************** 


*****C5******** 

* MOVE 

X* ON CONDITION 

* CODE IN 

* ENTRY 


INITIATE 
POINTER FOR 
ON 

ENTRIES 


MODIFY 

POINTER 

FOR 

ON ENTRIES 


INITIATE 
COUNTER 
FOR ON 
ENTRIES 


MODIFY 

POINTER 

FOR 

ON ENTRIES 


MODIFY 

COUNTER 

FOR 

ON ENTRIES 


*****G3********** 

* INSERT IN MACRO* 

* OFFSET FOR * 

* FLAG BYTE * 

* IN * 

* ON ENTRY * 


* INSERT 

* IN MACRO 

* NAME OF 

* BLOCK TABLE 

********** 




CHART OX. IJXD40 


2. SCAN, REVERT 


(O 

'O- 
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< 


**Bl-**»*** 

SET 

CALL BIT 
FOR 

LIBRARY 

ROUTINE 


INITIATE 

POINTER 

FOR 

MACROS 


****E2**»*»««* 
MOVE TWICE 
VARIABLE 
NAME FCR 
AL1 (CCOEtO) 
FROM IJKMVC 


( 


*****B3******* 

* SET CALL 

X* BIT FOR 

* LIBRARY 

* WORK SPACE 


****D3******** 
MOVE TWICE 
NAME FOR 
FILE ADDRESS 
CONSTANT 
FROM IJKMVC 


*****C4********** 

* SET * 

X* FILE ADDRESS * 

* MODIFIER * 

* TO 1 * 

***************** 


*****04******** 

* MOVE 

* FILENAME 

* FROM 

* PRESTATEM. 

* IN MACRO 
*************** 


SET 

POINTER 
FOR FILE- 
PARAMETER 


*«**F3********** 

SET POINTER * 
FOR * 

FILE ADDRESS * 
MACRO * 


SET 

FILE ADDRESS 
MODIFIER 
TO ZERO 




INSERT 
MACROS 
IN OUTPUT 


**B5****** 

SET 

CALL BIT 
FOR 

LIBRARY 

ROUTINE 


OMIT 

STATEMENT 

FCR 

OUTPUT 


INSERT 
MACRO FOR 
STOP 


X 


***** 
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•IF-STATEM. *. 


*#H2******« 
INSERT 
MACRO TO 
SET 

STATEMENT 

PREFIX 


INSERT MACRO 
TO RESET 
BLOCK 
PREFIX 


INSERT MACRO 
TO RESET 
BLOCK 
PREFIX 


INSERT 
MACRO TO 
RESET 
BLOCK 
PREFIX 


CHART Dl. IJX040 


2. SCAN, PREFIX HANDLING 
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( 


*A1***** 

KONSEC 


SAVE 

RETURN 

ACCRESS 


****D1******** 

MOVE ADDRESS 
OF STATIC 
STORAGE 
TABLE IN 
MACRO 


INSERT 
MACRO IN 
OUTPUT 
TEXT 


( 


MODIFY 

POINTER 

FOR 

ON ENTRIES 


MODIFY 
OFFSET FOR 
ON ENTRIES 


MOVE 

FILENAME IN 
ON ENTRY 


SET 

FILENAME 
IN ON ENTRY 
TO ZERO 


MOVE 

ON CONDITION 
CODE IN 
ON ENTRY 


* ****E4******* 

* MODIFY 

* POINTER 

* FOR 

* ON ENTRIES 


BUILD MACRO 
FOR MOVING 
FILE PARAM. 
VALUE. 


****#F5********** 

* INSERT * 

X* MACRO IN * 

* OUTPUT TEXT * 


INITIATE 
POINTER FOR 
ON ENTRIES 


INITIATE 
OFFSET FOR 
ON ENTRIES 


* K2* 

*N0 

*N0 



X 


X 



H2 *. 

.** NULL '*. YES 


HA *. 

KEY YES 

... *. CONDITION ...... 

X 

********** 

* SET INDEX * 

. X* FOR ERROR * 

*‘*NC 


I *‘*N0 

X 


I 

X 

!..x! 


* J5 *..! 


X X 

J3" **. JA* 

.*' **. YES .*CONVERSION‘*. YES 


X 

**««*J5********** 

* SET FLAG * 

* BITS FOR * 


*N0 

I *N0 


* NULL * 

* STATEM. * 


SET 

FLAG BITS 
FOR GO TC 


*****KA****** 

* SET 
.X* FLAG BIT 

* FOR 

* SYSTEM 


CHART 01. IJXD40 


2 . 


SCAN f ON STATEMENT (1) 
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NO 


CHART 


**»C3«****** 

BUILD 

LABEL 

ASSIGNMENT 
MACRO 
BY IJKMVC 


CET REG 13 
FCR 

REFERENCE 
CF INVCCATICN 
COUNT 


*«**D4********* 

SET REG 11 
FOR 

REFERENCE 
OF INVOCATION 
COUNT 


TEST 

FOR LABEL 
. LAVEL 2 . 


****E5********* 
SET REG 10 
FCR 

REFERENCE 
CF INVOCATION 
COUNT 


MOVE LABEL 
ADDRESS 
IN MACRC 


INSERT 
LABEL ASS. 
MACRO 


MOVE 

LABEL BLOCK 
ADDRESS IN 
MACRO 


MOVE 

ON OFFSET 
FOR LABEL 
IN MACRO 


INSERT 
MACRC TO 
MOVE 

LABEL ADDRESS 


X 

**J2******* 
MOVE 

CN OFFSET 
IN MACRO 
FOR FLAG 
BYTE 


SET FLAG 
BIT FOR 
LAST ON 


INSERT MACRO 
TO SET 
FLAG BITS. 


*K2****« 

RETURN 


RESET * 

INDEX FOR * 
ERROR * 

************** 




***H5**«***« 
SET INDEX 
FCR SEVERE 
ERROR IN 
END GF 
STATEMENT 




*****J5***««* 

* MODIFY 

-* SCAN 

* POINTER 

* BY 6 


******** 


02« IJXD40 


2 « 


SCAN, ON STATEMENT (2) 
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*A1***** 
KTESCA 


SAVE 

RETURN 

ACCRESS 


Cl *. 

F-KEY 




OMIT 

MACRO FOR 
OUTPUT 


MODIFY 

SCAN 

POINTER BY 1 


X 

*«*E5****« 

07A4 


*J1****« 

ERROR 

DUMP 


MODIFY 
POINTER 
BY 3 


G3 *. 
MACRO 


INSERT 
MACRO TO 
SET 

PREFIX FLAG 


** J4*****«- 
MODIFY 
SCAN 
POINTER 
BY MACRO 
LENGTH 


*K2****» 

RETURN 


SAVE 

BLOCK 

PREFIX 


************* 




INSERT 
MACRO TO 
RESET 

BLCCK PREFIX 


CHART 03. IJXD40 
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LOAD 

LENGTH 

IN 

REGISTER 

•«**»****« 


*C3* 


.* LENGTH * 
.X*.GREATER THAN 
*. BUFFER .* 
•LENGTH.* 


SUBTRACT 
BUFFER 
LENGTH FROM 
TEXT LENGTH 


SUBROUTINE 

KONSTOUT 


****F2***«*«*« 
MOVE TEXT 
FROM SECGND 
IN FIRST 
TEXT 
BUFFER 


X 

**G2**«*« 

* READ A 
RECORD I 

SECGND 

TEXT 

* BUFFER 


MODIFY 

TEXT 

POINTER BY 
RESIDUAL 
TEXT LENGTH 


CHART 04. IJX040 
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••**A1*******«* 

* KCONCOUT * 


X 

Bl****. 

INPUT **. 
•.BUFFER LIMIT . 
*. PASSED .* 


YES 


•**07A4***** # **** 

X* SUBROUTINE * 

* KOTE * 


MOVE TEXT 
FROM SECOND 
IN FIRST 
TEXT BUFFER 


••D2******* 

* READ A 
RECORO IN 

SECOND 

TEXT 

* BUFFER 


****E2******** 

SUBTRACT 
BUFFER 
LENGTH FROM 
TEXT 
POINTER 


**«#F2******«* 

SET NEW 
STARTADDRESS 
FOR 
TEXT 
INPUT 


•***G2«*««« 

RETURN 


CHART Q5. IJXD40 


COND* TEXT OUT 
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«*«A1****** 

KONSTOUT 


SAVE 

RETURN 

ACCRESS 


CALCULATE 
LENGTH OF 
TEXT FOR 
OUTPUT 


.* RES *. YES 
.OUTPUT LENGTH.*.... 
*. TEXT .* 
*LENGTH.* 


SUBTRACT RES. 
CUTPUT LENGTH 
FROM TEXT 
LENGTH 


*»*«E3«******** 
MOVE IN 
OUTPUT AREA 
TEXT FOR RES. 
OUTPUT 
LENGTH 


**E4****« 

IJKPO 


SET 

RESIDUAL 

TEXT 

LENGTH 


***»E5* 

SET 

INITIAL 
STARTADDRESS 
FOR TEXT 
OUTPUT 


MOVE TEXT 
IN OUTPUT 
TEXT BUFFER 


SET NEW 
ENDADDRESS 
FOR 

TEXT OUTPUT 


.* OUTPUT *. NO 
.X*. TEXT BUFFER .*... 
*. FULL .« 


*H2****« 

IJKPO 


**J2**«*«* 

SET 

INITIAL 
ADDRESS 
FOR TEXT 
OUTPUT 


*J3***«* 
RETURN 



CHART 06. 1JXD40 OUTPUT 
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( 


»»A4**** 

KOTE 


INSERT 
INDEX FOR 
SEVERE 
ERROR 


INSERT 

ERROR 

MESSAGE 


SAVE 

RETURN 

ADDRESS 

********* 


*****C4»******* 

* OUTPUT OF 

* TEXT UP 

* TO 

* POINTER-1 


**«*D4********** 

SET NEW * 

STARTADDRESS * 
FOR * 

TEXT INPUT * 


****E4***** 

RETURN 


( 


FURTHER *. YES 
ERROR IN 
. TEXT .* 


*****F2**»***** 

* MODIFY 

X* SCAN 

* POINTER 

******** ******** 


INSERT 
END OF 
PROGRAM KEY 


X 




c 

CHART 07. IJXD40 KINTER, KOTE 
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SAVE 

RETURN 

ADDRESS 


PROVIDE 
UNCONC. 
BRANCH IN 
KTESCA 


SAVE 

ACTUAL 

SCAN POINTER 


STORE 

SCAN POINTER 
AS 

STARTADDRESS 

#«*#**##****** 


PREPARE 

ERROR 

INDEX 


REESTABLISH 
CONDITIONAL 
BRANCH 
IN KTESCA * 


ERROR * 
IN END OF 
. STATEM. .* 


**E2*«*«* 

RETURN 


RESET 
OLD SCAN 
POINTER 


».*E3»******* 

SET 

POINTER 

FOR 

LOCATION OF 
PRESTATEM. 


PREPARE 
POINTER 
FOR ON 
BODY 

*#** *■***•*■ 


SET 

POINTER 

FOR 

I/C-COND. 


.* LABEL * 
•MACRO BEHIND 
*. PREST. .* 


* F3 *** 
PRESTATEM. 

*NO 


INITIATE 
POINTER FOR 
ON TABLE 
ENTRY 


.* PRESTAT. 
•X*. LONGER TH. 
*. BUFFER 


SET 

POINTER 

FOR 

ON BODY 


*F5****» 

ERROR 

DUMP 


INSERT 
LABEL MACRO 
PREVIOUS TO 
STATEMENT 


MODIFY 

POINTER 

FOR 

ON-BODY 


ff"' 


CHART 08. IJXD40 


KONLOOK (1> 
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*■#** b 1 ******* * 
set Pointer 
for 

FILENAME 

IN 

PRESTATEMENT 


INITIATE 
POINTER FOR 
ON (REVERT 
ITEMS 


MOD. POINTER 
IN' 

CN CONDITION 
TABLE 


PREPARE 

REGISTER 

FOR 

NO ERROR 


.* FILE * 
. SPECIFIED 
*.IN PREST..* 


«*F3*****«* 

INSERT 
INDEX FOR 
SEVERE 
ERROR IN 
TEXT 


MODIFY 

SCAN 

POINTER 


X 

***H3***** 

07A4 


X 

*K 1 *** ** 
RETURN 


*J3********** 

INSERT * 

ERROR * 

MESSAGE * 


>***K3********** 


SET 

ERROR 

INDEX 


CHART 09. IJX040 


KONLOOK (2) 
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****A1********* 

* IJXC7G * 



* INITIALIZE * 


*«***P1********** 

* SCAN * 

X* INPUT *X 

* TEXT * 


.X* PROCESS CON- 

* STANTS. PUT 

* OUT NEW TABLE 


*F4***« 

END 


*****G1********** 
•BYPASS ANC MOVE* 
* INTO OUTPUT * 
.* BUFFER ALL * 
« OTHER PROGRAM * 
« ELEMENTS * 


CHART PK. IJX070 


GENERAL FLOW 


2o4 

















IJKC7G 


ASSIGN ANC 
LOAC TWO 
BASE-REG. 


PTAB=TAEA= 
IJKMTS 
+3#IJKMBS 


MOVE CONST.- 
TABLE-KEY 
XS)F3a TO 
TABA 


TAEA 
=1JKMBS 
+2*IJKMBL 
-20 


POUT = 
AOUTBU 
=1JKMES 
+2*IJKMBL 


PIN = EUF1 
= AOUT EU 
+1JKMBL 


BLF2 
= EUF 1 
+1JKMBL 


BUF3 
= BUF2 
+1JKMBL 


**K2*«*** 
LIND=0 


X 

PM * 
Bl* 


CHART PL. IJXD70 


INITIALIZATION 
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( 



<■«»«»«*«*« 

* FPIN * 

* CONTROL* * *X 

* INPLT- * 

* POINTER * 


* ***C 3* * ******** 

I/O- * 

SWITCH *. 

ON * 


******* 


******** 


* SKIP * 
.X* STATEMENT- * 

* I DENT. * 
« » 
***************** 


END *. YES 
OF STATE- .*.... 
. MENT .* 


* SKIP 

.X* ERROR 

* (2 BYTES) 


*....X* B1 


ACCR-- 
CONSTANT 
. (X2FD2) 


« OTHER 
F-KEY 

MNOT CONST. 
*.EOPR ) •* 


SKIP 
ELEMENT 
(3 BYTES) 


* MODIFY KEY 
X* X3FD3 TO 

* X3F33) 


* SKIP ELEMENT 
.X* (ACCORDING 

* TC SPECIFIED 

* LENGTH) 


FGSC30 

*****J2****** 
* JTRN 


CONST.- 
TABLE 


****K2********** 


PUT OUT 
LAST 
BUFFER 


.* IS 
.X*. IJXD75 
*. SKIPP. 




CHART PM. IJXD70 


GENERAL SCAN 
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•A 2 


* PUT OUT * 

* PREC. TEXT * 
•START.AT (PINS)* 


POUT S =POUT 
P TAB = 
TABA+3 


* PIN S =END 
♦OF OLD CONST+- 

* TABLE IN THE 

* SOURCE-TEXT 


HOVE 2-BUFFER 
TO THE LEFT. 
GET NEXT ONE. 


PUT OUT 
CONSTANT- 
TAP LE 


(PTAB+1) 
=LENGTH OF 
TABLE 


* ALL 
CONSTANTS 
•PROCCESSED. 


* NEW * 
CCNST.TABLE 
*. EMPTY .* 


PIN 

-ADDR. OF 
FIRST 
ENTRY 


SKIP 

CONSTANT- 

ENTRY 


.* TABLE *. YES 
-X*. -SPACE 

*. FULL .* 


(PTAB+1) 
=LENGTH 
OF CONST.- 
TABLE 


.* CONV. *. YES 

*. TO CHAR.- .*_ 

*. STRING .* 


.* DOES 
IT FIT 
*.INTO THE 
•-TABLE.* 


PUT OUT 
CONSTANT- 
TABLE 


MOVE NAME * 

AND ATTR.- *X. 

BYTE FROM * 

(PIN)TO(PTAB) * 


* IS THE * 
CONSTANT TO 
•BE CONVER-.* 
*. TED .* 


PROCESS 
THE CON¬ 
STANT 


MUVE LENGTH 
AND CONST. 
FROM (PIN+S) 
TO (PTAB+3) 


SET NEW 
TYPE=FLOAT 
SET NEW 
PRECISION 


MOVE LENGTH 
AND CONVER¬ 
TED CONSTANT 
TO (PTAB+3) 


CHART PN. IJXD70 


GENERAL SCAN 
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/f 


****A1«*** 

JTRN 


*B2«**** 

RETURN 


*C1* 

HR 1 = 2 56 


.*BYZ GT HR 1 


**D2**««** 
HR1 = BYZ 


BYZ=BYZ-HR1 
PIN=PIN+HR1 
P0UT=P0UT+HR1 


POUT 
= POUT 
-I JKMBL 


**J3*##***#**# 
HR1=P0UT * 


CHART PO. IJXD70 


MOVE INTO THE OUTPUT-BUFFER 


,/f^ 
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«*A1**** 

FECS 


END 

OF I/C- 
STATEM. 


SWITCH ON 
INDICATING 
ERRORS TO BE 
PUT BEHIND 
THIS ECS 


SET SEVE¬ 
RITY-CODE¬ 
BITS INTC 
EOS 


SIZE- *. YES 

ERROR DE- .*_ 

. TECTED .* 


PUT OUT 
SIZE- 
PAKRO 


END 

OF BAD 
STATEM+ 


SKIP 
EOS-KEY 
(6 EYTES) 


SWITCH ON 
IJKPJT 
3ERRQRS IN 
COMPLATI0N3 


CONTROL 
INPLT- 
POINTER 


SKIP 

ERRCR- 

KEY 

(2 BYTES) 


* ERRORS * 
TO BE PUT 
^BEHIND THIS* 
*. EOS -* 


CLEAR 

BOTH 

SWITCHES 


PUT OUT 
PRECEEDING 
SOURCE-TEXT 


1 CHART PP. IJX070 


END OF STATEMENT 
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*A1***«* 

FERR 


OR SEVE¬ 
RITY-BIT 
ON SEVCO 


INCREASE 
NUMBER OF 
ERRORS BY 
1 


PUT ERRCR- 
NUMBER 
INTO THE 
TABLE 


*E1***** 
RETURN 


*E2 ***** 
RETURN 


*B3***»* 

RETURN 


SEVERIRY- 
BIT ON 
SEVCO 


CHART PQ. IJXD70 


ERRORS 
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( 


*A1*«** 
F P IN 


***B2*»*»* 

RETURN 


.*PIN GE BUF3*. YES 


. X* PUT OUT TEXT 

* FROM (PINS) 

* UP TC (BUF3) 


PIN 
= P IN 

-2*1JKMBL 


PUT OUT TEXT 
FROM (PINS) 
UP TO (PIN) 


I 


»*F3***** 

FPINX 


MOVE 

SECOND BUFFER 
INTO THE 
FIRST ONE 


•««H1********** 

P IN= * 

PIN-IJKMBL * 
PIN S=PIN * 


READ NEXT 
BUFFER 
TO BUF2 



CHART PR. IJXD70 


CONTROL THE INPUT-POINTER 
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*A1****** 
FCON 


OLD 
TYPE = 
BIN.FL. 


MOVE CONST. 
RIGHT 
ALIGNED 
INTO CONS 
(DOUBLE WORD] 


FCON1G 

***** 84 ********* 
* CALL ONE OF 
*THE CONVERSION 
...X* ROUTINES 


**B5 ***** 
RETURN 


OLD 
TYPE = 
BIN.FI. 


* OLD 
TYPE = 
*. DEC.FL. 


MOVE CONST. 

INTO CCNS 
(FULLWCRD) 
RBFI=C CNS 


FCCN20 

*»***D2********* 

* MOVE CONST. 
RIGHT ALIGNED 

INTO CONS-1 

* =FI NT 
*(9 BYTE-FIELD) 


. X* 


FC0N25 

***MCVE CONST!** 

* RIGHT ALIGNED 
...X* INTO FINT 

* =CONS-l 
*(9-BYTE-FIELD) 


CLD 
T YPE = 
.STERLING 


OLD 
TYPE = 

.BITSTRING. 


* MOVE CONST. 
.X* LEFT ALIGNED 

* INTO CCNS 

* (DOUBLE WORD) 




CHARI PS. IJXD70 PROCESSING OF CONSTANTS 
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*A3**»* 

FBIL 


SET PREC. 
OF TARGET 
= 31 


X 

***F1******** 
F SB I 

CONW.*FROM 
BITSTRING TO 
BIN. FIXED 


PUT CONST. 
(RBF1J 

RIGHT ALIGNED 
INTO CONS 


CHART PT. IJX070 


BIT STRING TO FLOAT 
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*A1**»* 

FBLL 


SIGN 
= PQS 

(0) 


.*. 

FBLL15 


D1 

*-**-* 

*D2 ***** 

*. NO 


RSHI = 

REXP =C .*- 

....X* 

REXP 

• * 

* 

-4*F LCGR 

• • * 

* 

(REXP/4) 

***VES 

**** 

******** 


FBLL10 

«**»«C3******** 

* RLEN=8 OR 4 

* ACC. AS 
...X* LONG OR 

* SHORT FORMAT, 

* RESPECTIVELY 


REXP 
= 64 

+FLOOR 
(REXP/4) 


****B4****** 
* RETURN 
************ 


.X*. LIND=0 


**65 ****** 
RETURN 


SET SIGN- 
BIT ACC. 
TO SIGN 


*»«*«D4****** 


*********** 


.* IS 
*. THE CONST. 
*. NORMAL. . 


*.X< 


****F2********* 
SHIFT LEFT 
AND REDUCE 
EXP. UNTIL 
THE CCNST. 

IS NORMALIZED 


*F3«****« 

FBLL30 


G1 *. 
*REXP LT 0* 


**************** 


CONS 

=LAP.SEST 

VALUE 


*-X* C3 * 


STORE 
REXP 
IN CONS 


* J2* 
FBLL35 


CHART PU. IJX070 


BINARY FLOAT TO HEXAD•F L . 
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( 

#*.*A1*** 
* F SB I 



c 

CHART PV. I.JXD70 BITSTRING TO BINARY FIXED 
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*A1**** 
FBII 


RSHI=SCALE 
OF TARGET 
=(PIN+7) 
RG=0 


Cl *. 

RSHI=C 


*B5****« 

RETURN 


SHIFT LEFT 
RBFI BY 
RSHI 


RSHI = 
PREC.CF 
TARGET 


SHIFT RIGHT 
RBFI BY 
(-RSHI) 


*E2***«* 
FBI 103 


SHIFT LEFT 
(R4» R5)BY 
(32—RSHI ) 


C4 * 
R4=Q 




FI *. 
*1 OVERFLOW 

* . . * 

• YES 


***G1******* 
SAVE1=LINK 


***J1********** 

* 

LINK =SAVE1 * 


SHIFT RIGHT 
R5 BY 
(32-RSHI) 


#E4****** 

C0NS=R5 


F4 * 
R j = l 


*««G4****** * 
SAVE1=LINK 


***J4**»**** 
L INK = SA VE1 



*X** 





























. YES 



*X 






































COMPLEMENT 
CONSTANT, 
IF SIGN= 
NEG- 


X 

PN * 
H5* 


CHART PW. I Jl.XD7 0 


BINARY FIXED 
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*A1***« 

F SC I 


•A3**** 
FB ID 


SAVE P ANC 
Q OF 
TARGET 


CONVERT 
FROM BITSTR. 
TO BIN.FI. 


RESTORE 
P AND Q 
OF TARGET 


*«***B3* 
•CONVERT RBF 

* TO 

X« DECIMAL 

* (RESULT IN 

* CONS) 


SET 

PR5C. OF 
SOURCE 
= (15,G) 


CHART PX. IJXD70 


BITSTRING TO DEC.FIXED 
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{€ 
\ . 


•«**A1«******** 
FCDI * 


**A2****« 
FDDI X 


C3 *X. . . . * 




j.niiDliiiii.:nt. 

*** 

X 

**B2******** 

** 

****«B3********* 


****«B4******** 

•** 

«****B5********** 


* 


* 



* 

* 


* RO * 

* 

(R4,R5) 

* 

* RSHI 


* 

* 

* SHIFT RIGHT * 

* =SCALE- *.... 

.X* 

=CCNS 

*•••••« 

...X* =SCAL E- 



* 

* CONST. BY * 

* FACTOR OF * 

* 



* FACTOR OF 

* 

* 

« 

* 4*(—RSHI) * 

* SOURCE * 

* 


■It 

* TARGET-RO 

* 

* 

* 


***************** 

•*** 

............ 

** 



* 


•**•»**•«**•••*•• 


***************** 


RLEN 

=FLCOR 

(P+2/2) 


.* ERROR 
- ALREADY 
•.SIGNALED 


RSHI = 
PRECISION 
OF TARGET 


COMP. *. LT 
RSHI TO .*... 
0 -* 


CONS 
= (R4,R5) 




**»«E5***** 
* FDD 145 


***»*FI********** 

* SET MINUS- * 

* SIGN» IF 

* DESIRED * 


FDDI5? 

FERR 


******* 


PACKED 

FORMAT 

DESIRED 


ALIGN THE 
CONSTANT 
LEFT IN 
CONS 


*J1* 
RETURN 


G2 *. 

ZONED 


REPLACE 
SIGN-BITS 
BY ZCNE- 
BITS 


* MOVE LENGTH 

* AND UNPACKED 

* CONSTANT 
•INTO THE TABLE 


»***G4******** 

SHIFT LEFT 
CONST. BY 
4*RSHI 


*. OVERFLOW 





*YES 


FDDI65 X 


FDDI35 X 

x 

****«J2********** 


*****J4******* < 


************** 


*****K4****** 

* 

* RG = 1 


....X* A5 * 


CHART PY. IJXD70 


DECIMAL FIXED 
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( 


•Al**** 

FSCS 


RLEN 
=LENGTH 
OF TARGET 


(PTAB+3} 
= RLEN 
t L=2) 


****»E1********* 
* R1=PTAB 


( 


PTAB 
= PTAB 
+RLEN+5 


****G1****** 


EXPAND THE 
STRING BY 
BLANKS 

<L=RO) 


RO 

=-RQ 
GT 0 


*•**#*******.«••** 


RLEN 

=RLEN-1 

=0 


***H3******** 

R1=R1+1 
SHIFT LEFT 
(R4 t R5)0NE 
DIGIT 


. *YES 
J3 *. 

R4 LT 0* 


RLEN 
=LENGTH 
OF SOURCE 


( 

CHART PI. IJX070 BIT TO CHARACTER 
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**«A1********* 
FELS * 

************** 


SAVE 

PRECISION 
OF TARGET 


****A3«»«* 

* FB IS 


***C1********** 

P OF TARGET * 
= P OF * 

SOURCE * 


01 *. 

* * 

P GT 31 

*. .» 

**N0 


***** 02 ***** 


**«**F1********* 


•****G1* 

* FNBI * 

*-*—*—*—*—*—*—*—* 

* CONV.FROM * 

* BIN.FLOAT * 

* TO BIN.FIXED * 
***************** 


*****B3****»««**» 

* RSHI * 

* =PRECISION * 

* OF SOURCE * 


***C3********** 

SHIFT LEFT * 

RBFI BY * 

C 32—RSHI) * 


CONS=RBFI 
CGNS+4=0 
(4 BYTES) 


***E3»********* 

RLEN * 

=CEIL * 

(LENGTH/8) * 


*****F3********* 

* INVERT THE 

* STRING,IF 

* DESIRED 


•***G3******* 

* RETURN 


• ***E 4******** 

* FBSS 

•***•*««**•**• 


***H1********** 


***J1********** 

RESTORE * 

LENGTH * 

OF TARGET * 


CHART QA. IJXD70 


BINARY FLOAT TO BIT 
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*B3********** 


*CCNV. FRCM BIN. 

* FLOAT INTERM. 

* TO FLOAT 


**C1**»* 

FLDI 


C2 *. 

. X*I‘source = 0 


GENERATE 

DECIMAL 

ZERO 


*C4***»* 

RETURN 


I ND=4 

REXP =SOURCE- 
EXP.-78 


CONVERT 
BIN.INTEGER 
TO DECIMAL 
(17 DIGITS) 


E2 * 

. X*I REXP 


****»D3********** 
•TRUNCATE+SHIFT * 

* IF NECESSARY * 

* TO OBTAIN *. 

* 2 HIGH-ORDER * 

* ZEROES * 


IND=0 
R EXP = 
-REXP 


***** 04 ********* 

.X* RC=RSCF 


PROCESS 
DECIMAL FIXED 
NUMBER 


* RETURN 


REXP = 

(1972 8*REXP 
+8192)/ 
16384 


*#***F4******* 

* REXP=78 




* IF IND= 0 
*RSCF=RSCF+REXP 
« IF IND =4 
*RSCF=RSCF—REXP 


«*H3********** 


MULTIPLY/ 
DIVIDE BY 
10 ** QUCT. 


MULTIPLY/ 
DIVIDE 
BY 1C**REM. 


CHART QB. IJX070 


BINARY FLOAT TO DEC FIXED 
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*A1**** 
FNBI 


(R4,R5) 
= CONS 
RC =0 


****»C1******* 

*** 


*****C3***** 

***** 






* 



* 




****C5********* 

* RSHI = SCALEF. 

* 


* RQ = 1 

* 




• * 

* OF TARGET 

* 



# 




* RETURN « 

* +EXP.GF 









* SOURCE 








*•«•**•******•* 









X 




X 




* G1 * 









****** 









X 


X 











FNBI20 

FN8I30 .*N0 






D1 *. 


D2 *. 

D3 *. 



** 

** *04** ******** 

•*•*•05********** 


RSHI GT 0 -*.X*. GT 30 


• X*. R4=0 


SHIFT LEFT 
(R4,R5)BY 
RSHI 


* COMPLEMENT 

* NUMBER 

* IF S IGN= 

* MINUS 
**•***••*•**•• 


*N0 

*YES 

* 

X 

X 

X 


. *YES 

********* 

•••*•52********** 


E5 *. 


*E4****»***« 
RETURN 


NO -* LIND=G 


SHIFT RIGHT 
(R4,R5) BY 
RSHI 


.* *. YES * RSHI= 

..X*. R4=0 -*.X* PRECISION 

*. .* X * OF TARGET 


HI *. 
*1* R0=0 


SHIFT LEFT 
R5 BY 
(32-RSHI) 


G4 * 
R4=G 


* SHIFT RIGHT 

.X* R5 BY 

* C32-RSHIJ 


R0=0 

*’*YES 


** J4********** 

RG=1 * 

* 

************** 


CHART Q C. IJXD70 


BIN.FLOAT TO BIN.FIXED 
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( 


•Al**** 

FCIS 


•*«*C4****** 

RETURN 


R5 

=CEI L 
(3.32*R5) 




SAVE 

PRECISION 
OF TARGET 


( 


SET Q OF 
TARGET 
TO C 


HI *. 

P GT 31 **. YES 


»****H2******* 


***H5***** 

RETURN 


* LIND=LIND+1 *X. 


*•••*•***•**••*•• 


CONVERT FROM 
BINARY FIXED 
TO BIT STRING 


CON V.FROM 
DEC.FIXED TO 
BIN.FIXED 


**««*K2**** 
.X* LIND=LIN 


PRECISION 
OF SOURCE 
=PRECISI0N 
OF TARGET 


RESTORE 
PRECISION 
OF TARGET 


CHART QD. IJX070 


DECIMAL FIXED TO BIT 
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CLEAR 
FIRST BYTE 
OF FINT 


REXP 
=-SCALE 
OF SOURCE 


REPLACE 
(P,Q) OF 
SOURCE BY 
ONLY P 


X 

****C1********* 

* FDFL * 

**#♦***#*#**#** 

**#*C2**«****«* 

* FDLL * 

lx. 


X 

*****01********** 

* ALTIGN THE * 

* DEC. INT. * 

D2* ** *. 

.»* '*. YES 

* AND REDUCE * 

* REXP ACCORD. * 

***************** 

*" *N0 

X 

El* # **. 

.** INTEGER '*. YES 
*. GE 2**56 .. 

##**»E2*****»**** 

* SHIFT DEC. * 

* INTEGER ONE * 

...X* DIGIT RIGHT * 

* . , # 

* ♦ « * 

**N0 

* AND INCREASE * 

* REXP.BY 1 * 

I X.. . 


X 

FDFLC3 .*. 

FI *. 

.** REXP *‘*. YES 
*. GT 59 .*.. 

**«*»F2********** 

* FBLL35 * 

...X* SET CONSTANT *. 

*. . * 

* • • * 

*. .* 

*N0 

* TO HIGHEST * 

* NUMBER * 

X 

********** 

* CONVERT DEC. * 

* INTEGER TO * 

* BINARY. * 

* RESULT IN * 

* (R4*R5) * 



***«D:>***** 
* RETURN 


.* FLOATING 
.X*. POINT 
*. FEATURE 


PROCESS 

FLOAT 

CONSTANT 


CHART QE. IJXD70 


DECIMAL FIXED TO FLOAT 
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***A1******* 

R 5 

=ABS(REXP) 


DIVIDE 
R5 BY 
1C 


***«*C1******** 

* SAVE 

* LINKAGE 

* AND 

* PROGRAM-MASK 


MASK OFF 

EXPONENT- 

UNDERFLOVi 

************ 


El 


E2 *- 


« 

»**E3*****«*< 

»** 

*** 

**g4********** 
FBLL10 * 

* 

***E5********* 

.* REMAINDER *. YES 


.* QUOTIENT *. 

^YES 

* 

RESET 

MASK-BITS 

RELOAD 

* 

*—* 


* 


*. =0 

' x' 


X 

• 

• 


FLOAT * 


* 

* *NG 

I 

** *NC 

!! 

* 

LINKAGE 

*** 

:** 

CONSTANT * 




MULTY/DIVIDE 
FLOAT NUMBER 
BY 10**REM. 


G1 *. 

RESULT **. NO 


•MULTIPLY/DIVIDE* 

* FLOAT NUMBER * 

* BY 10**QUGT. * 


RESET 

MASK-BITS 

RELOAD 

LINKAGE 


**K1 
RETURN 




CHART OF. IJXD70 


DECIMAL fixed to float 
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* SET P OF * 

* TARGET = * 

* CEIL ( * 

*P(SOURCE)-*3t32)* 


CGNV. FROM 
DEC. FLOAT TO 
BIN. FIXED 


SET 

P(SOURCE) 
=P < TARGET) 


RESTORE 
LENGTH OF 
TARGET 


• X»CCNVERSIGN FROM* 

* BINARY FIXED * 

* TO BIT STRING * 


CHART QG. DOS/TOS PL/I DECIMAL FLOAT TO SIT 
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*A1**** 
FDLB 


** 

***81****** 

<*»* 

** 

***B2********** 

***«*B3********** 

*• 

***B4****** 

•*»• 

***»*B5»**** 

***** 

* 


* 

* 

« 

* FDFL * 

* 


* 


* 


LIND ^ 

L IND 1 

* 

Y* 

SAVt * 


Y * 

RELOAD 

* 

^* LINDf 

* 



*" 

* " * ' * 


* FLOAT TO * 



** * * * 

* ' * * X , LIND 1 

* 



***H 


* 

* FLOAT * 

t* 








** 





**** 


***** 


R SHI 

= (7£—HEX. 
EXP.1*4 


*****E1******* 

* R SHI 

* =RSHI 

* -SCALE OF 

* TARGET 

■»•••***•***••* 


****F3****** 

RETURN 


LOAD FRACT. 
INTO 
(R4,R5) 


SHIFT 
RIGHT 
(R4.R5JBY 
R SHI 


PROCESS 
BINARY FIXED 
POINT NUMBER 


**««K2***** 
* RETURN 


CHART OH. IJX070 


DEC.FLOAT TO BIN.FIXED 
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/T' 

( 


*A1**«* 

FDIB 


SCALE 
OF TARGET 
. =G 


SCALE *. NO 
OF SOURCE .*... 
. =C .* 


* SHIFT RIGHT 
. X* AND TRUNCATE 

* FRACTION 


*E1********** 

CONVERT * 
CONS TO * 
BINARY * 


PROCESS 
BINARY FIXED 
POINT NUMBER 


*G1********* 

RETURN * 


.X*CONV. FROM DEC.*. 

* FIXED TO * 

* FLOAT * 

*•****«*«-*••***•* 


*****£>5 ******** 




*»*»*C5***«* 


•CONVERSION FROM* 

* FLOAT TO * 

* BINARY FIXED * 
«******•••*••*«** 


«*F4***** 

RETURN 



CHART 01. IJXD70 


OEC.FIXED TO BIN.FIXEO 
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*A1**»* 

FOLD 




CONV.FROM DEC. 
FLO/'T TO 
FLOAT 


«***E1**»* 


************* 


*****FI******* 


•CONVERSION FROM* 

* FLOAT TO * 

* DECIMAL FIXED * 
***************** 


*H1* 

RETURN * 

************ 


CHART QJ. IJX070 


DEC.FLOAT TO DEC.FIXED 
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*A1*««* 

MUDI 


A,„^" 


* FLOATING *. NO 
POINT FEA- 
*. TORE .* 


X* SIMULATE 
♦FLOATING POINT 
•MULTIPLICAT ION 
**«»•»«*«•••«»*• 


*•** 04 ********* 
* RETURN 
*•****•****••*• 


* SIMULATE 

* FLOATING 
•POINT DIVISION 


*«**D2««**«« 

RETURN 


••**E2****** 

MULTIPLY 


***«E3*****« 
* RETURN 


****F1********* 
DIVIDE 


***G1»•***•* 
RETURN 




CHART QK, 


iJX070 


FLOAT MULTIPL./DIVISION 
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*B4**»* 


EXPONENT = 
SUM OF 
EXPONENTS 
-64 


**C1******* 

SPLIT 

FRACTIONS 


**D1****** 

A3=A2*62 

A4=A1*B1 

A5=A2»B1 

A6=A1*B2 


**E1******* 
SHIFT AND 
ADD 

LOGICAL 


**F1***«*« 
TRUNCATE 
TO 56 
OIGITS 


**«*H1*** ****** 
* RETURN 


ONE 

OPERAND 

=0 


**C2****** 

RESULT =0 


»***C3* 

EXPONENT 
^EXPONENT 
OF DIVIDEND 
-EXPONENT 
OF DIVISOR*64 


**D2*«**« 

RETURN 


INTEGERA 
=FRACTION 
OF DIVIDEND 
1 = 56 


)«**E 3 ******* 
INTEGERS 
=FRACTION 
OF DIVISOR 
C=9 


* * * * *F 2 * * * * * * * * * * 

F3 

* SHIFT LEFT 


* A 4 BINARY * 

YES .* 

* DIGITS. *X... 


* INCREASE * 


* EXPONENT BY 1 * 





***G3*«***«* 

SHIFT LEFT 
A AND C 
ONE DIGIT 


. *NC 

H2 *. * 

1 - 1=0 


*«J2****««* 

FRACTION 
OF RESULT 
=C 


•****H4******* 

* SET LOW 

* ORDER BIT 

X* OF C 

* =1 


*K2****« 

RETURN 


*«*»J3*«»**** 
SET LOW 
ORDER BIT 
OF C 
= 1 


SHIFT LEFT 


**•••••***• 


CHART QL. IJXD70 


SIMULATION OF MULTIPLICATION 
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* INITIAL * 

* DEFINITIONS * 



* SEARCH *FGRM 
X...X* FOR GET/PUT 

* AND FORMAT * 

* STATEMENT » 


SET LIBRARY * 
BITS IN * 
COMM.REGION * 


-»*■»■** C 4* **-*•*'+*** * 
* SKIP * 

X* RG=1 * 

*(EDIT EOP KEY) * 



DA X 


* CALL NEW 

* PHASE 



***«*E2*»•*»*«**« 
* FORMAT * 




CHART QP. IJXD75 PHASE DESCRIPTION 


\ 


232 















ERR =C 

(CLEAR ERROR 
BYTES) 


SEARCH 

****A2********* 
....* ENTRY * 




X 

KEY *‘*. YES 

EA .*. 

D2 *. 

.** xaEAa **. no 

EB 

D3 *. 

.*' xaEea **. no 

EO .*. 

DA *. 

.* *. X 

.* 2E02 *. YES 

*NO 

* *YES 

* * *YES 

* *NO 


* E2 *..! 




*E1* 

* RG = (INPO+1) 


****■»*******•*■»*■#* 


****** NO .*'*FORMAT *’*. 

* E2 *X....*. .*X. 


G5 *. 

NO GET/PUT 


CHART QR. IJX075 


SEARCH 
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»A1***** 

ENTRY 


♦A2***** 

ENTRY 


*A5****« 

ENTRY 


INSERT 

VARIABLE 

COUNTER 


«D1**** 

RC = 8 


IJKMVC.. 
NAME OF 
VARIABLE 
COUNTER 


♦ENOBUF.. 
♦END OF 
♦ BUFFER 


**D2* 
RG=RG-R0 


***C3****** 

INPO=RC 


X 

«D3**** 

EXIT 


♦ INDIC. ♦ 
FOR STRUCT. 
♦EL.INTABLE.♦ 


INSERT MOD. 
FROM TABLE 
INTO NAME+2 


FIND 

MAJOR 

STRUCTURE 


♦BUILD PARAMETER* 


♦♦F2****** 
I NPC = RC 


COUNT 

♦♦**F3***** 
* ENTRY 


.♦ VAR. * 
*. CONTROLLED 
♦OR DEFINED.* 


•****F4******** 

* FIND POINTER 

* OR BASE, 

* PREPARE 

* ATTR.BYTE 


**C5* *** 
EXIT 


♦05***** 

ENTRY 


X 

*E5 ***** 
SETIN2 


* BUILD MOVE M. 
*WSP+5=(IJKMVC) 

* WSP+1G=lINPO) 

* RD=17 


INSERT NAME 
FOUND 

COMPL.ATTR. 
IN NAME+4 


****♦♦«* 


H3 *. 

* IJKMVC=0 


•H4**** 

EXIT 


****H5******** 

INP0=INPQ+12 




* J3***« 
EXIT 


♦♦♦*J5******** 

SETIN1 

ADJUST INPO 


♦♦**K4**** 
* EXIT 

********** 


UPDATE INPO 


CHART US. IJ X07 S 


VARIOUS SUBROUTINES 
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SETIN2 


**B 1 *** ** 

ENTRY1 


*A2 » * * « « 

ENTRY2 


***B2* 

INPC=INPC+3 


X 

*C2****« 

INPUT 


.* xaFca, *. nc 
* xaF2a,xaF3a or.*... 
*.X3F6a IN .* 
•POINT..* 


***E2* 

RG=(INPC+1) 


RG=6 


CHART QT. IJX075 


SET INPO 
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A4 * 




*A1***** 
ENTRY 


VARBG..BEGIN OF TABLE SPACE 


RA. .G 

RB. . I 
RC..INPO 


*B2****«* 
INPC=RC 


ADJUST INPO 


..X* (GENERATE 
. * AND EDIT 

. ^INITIAL.MACRO) 


INSERT PRE¬ 
PARED PARAM. 
LIST INTO ImSP 


* WSP+3=IJKMVC * 
*WSP+14=(INPO+1)* 

* IJKMVC=RF * 
*(RESTORE NAME) * 


OPTION 
IN FLAG 
BYTE 


R0UT=X3233 
SET BIT IN 
LIBR.STRING 
RF=IJKMVC 


INPO=INPO+6 
(SET POINTER 
TO FILENAME) 


RA=ENDBLF- 
I NPO 
RB =R I 


***E3********** 

STEP INPUT * 
POINTER * 

RD=18 * 


F3 *. 

'statement'*. PUT 


G3 *. 

♦LIST OPTION*. NO 


EDIT PARAM- 


SET PARAM. 
FOR PAGE 
l«SP+3 = I JKMVC 
RB = 1G 


wsp+io=x20ia 

(DEFAULT 

VALUE) 


X 

*****E5********* 

* GENMO 

•GEN.MCVE MACRO 

* FOR INSERTING 

* EXPR.VALUE 


..X*GEN-MOVE MACRO 

* FGR INSERTING 

* EXPR.VALUE 



♦YES 


*YES 

* A4 * 


* G5 * 

X 

*****H1********** 

X 

**«**H2********** 


X 

*****H3*******< 

FGET3 

X 

*«H4********** 

X 

*****H5*« 


*1JKMVC=(INPO+l)« 
*(TRANSFER NAME)* 
*INPC+1 = X300043 * 
* (DUMMY NAME) * 


RF=RF-1 

(REDUCE 

COUNTER) 


******** 


* WSP+8=X3D23 

* (IND.BYTE) 

* R0UT=X31C3 

* SET LIBR.BIT 
*************** 


X 

***J3******** 

OPWSP 

EDIT PARAM. 




WSP+7 = X3233 
(NAME CF 
LIBR.ROUT.) 


*****K3********** 

* GENIN. * 

*-*—*-*—*—*-*—*—* 

* (GEN.AND EDIT *X. 
♦INITIAL.MACRO) * 


EDIT PARAM. 


***«*K4********** 


SETIN2 
UPDATE INPO 


CHART OU. IJXD75 


GfcT/PUTl 
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< 


SETIM2 
UPDATE INPO 


UPDATE INPO 


PREPARE 
LOADER.AND 
LOAD CED 
MACRCS 


* PREP.LOAD SC. * 

* MACRO AND DEC * 
*WSP+13=(IJKMVC)* 


WSP+il= 

( IJKMVC) 

( INT.NAME) 


SET BITS 
IN L1BR. 
STRING 

MODIFY MACRO 


SET BITS 
IN LIBR. 
STRING 


PUT .* STATEMENT 


SET BITS IN 
LIBR.STRING 
WSP+ 7 =X 5303 
(LIBR.ENTRY) 


FIND NAME 
IN TABLE 
SET LENGTH 
OF STRING 


MODIFY IF EL. 
OF STRUCT., 
DEFD.,BASED 


RCUT = Xall Ea) 
ViSP+5=XaiD2 
SET LIBR.BITS 




WSP+5= 

INPG+1 

SET LENGTH OF 
STRING 


***E3******** 

INP0=INP0+9 


*****£4******* 

* WSP+5= 

* NAME AND 

* ATTRIBUTES 


UPDATE INPO 


UPDATE INPO 


***F5***« 

EXIT 


SET ERROR 
INDICATION 
IN EOS 


•***•G4******** 


UPDATE INPO 


* SET BITS 

* IN LIBRARY 

* STRING 


PREPARE 

ERROR 

OUTPUT 


CHART ov. 1 J X 0 7 5u 


GET/PUT2 
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ARRAY 


SCAL 


•BUILD L.TRANS- 

* MIT MACRC 

* WSP+5=RCUT 

* (ENTRY PCINT) 


WSP+3=IJKMVC 
(PREPARE NAME 
OF FORM.STR.) 


RC. .INBUF 

RD. .RI-I 
(EDIT) 


COMPLETE 
FORM.STR. 
AND CONSTRUCT 
FORMAT MACRO 


MODIFY MACRO * 
INSERT LENGTH *X 
AND NUMBER * 
OF ELEMENTS * 


WSP+14= 
IJKMVC 
(LABEL FOR 
ARRAY LOOP) 


ARR .* VARIABLE 


BUILD LCAO- 
SCALAR MACRO 
INSERT NAME 
AND ATTR. 


WSP+7=Q 
(OFFSET AND 
ATTR.BYTE) 


* END • 
PARANTH. IN 
*. POINTER .* 


* WSP+5= 

* (IJKMVC) 

* NAME FCR 
•LOAD DED MACRO 


* DECL. 

VARIABLE 
•IN POINTER. 


WSP+5= 

(IJKMVC) 
(INSERT NAME) 


CLEAR NAME 
NAME-1=X3E43 
(PREPARATION 
FCR MACRCS) 


.* CHAR. 
.X*. STR.CONST. 
*. KEY IN . 
•POINTER* 


SAVE NEW DED 
COMPLETE DED 
CONSTANT 


TEST+1= 
(INPO+5) 
(SAVE LENGTH 
DATUM) 


BUILD NAME 
FOR LOAD SC. 
MACRC 


* COMP. • 
NEW AND 
*.PREV. DED.* 


wsp+z=xaoAa 

WSP+7=X302a 

R0=1G 

(COMPLETE) 


CHART on. 1JXD75 


GET/PUT3 
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****#A2 ***** 

* WSP+10= 


SET LIER. 
BIT FOR 
CONVERSION 


*WSP+16=(TEST+1)* 
*WSP+17=<TEST+2)* 
* +128 * 
* STORE NEW DED * 


X 

**C2***»* 

CPWSP 


SW21 .*RES 

A3 *. 

SW2 


VAR2 = (IJKMVC ) 


*EUILD CONV.MACR* 
..X* WSP+12=NAME-i * 
. * WSP+18=( L + 2) * 

. *WSP + 20=( IJKMVC)* 


» WSP+7=(VAR2) 

*(NAME OF CONV. 
* VARIABLE) 

» NAME—1 =WSP+6 


INSERT TEST 
EYTES FROM 
VAR. TABLE 


MODIFY IF EL. 
OF STRUCT., 
DEED.,BASED 


* YE S 

*NC 




X 

X 

*QY * 



X 


* CONSTRUCT 

* NAME AND ATTR. 

* FOR GEN. 
*VAR.AND CONST. 


***«*H2********** 

* INSERT ATTR.-S * 

* AND PRECISION * 
*1NTG TEST BYTES* 

* INPO=INPC+12 * 
*(STEP POINTER) * 


****E3***** 


•BUILD LOAD-TR. 

* MACRO 

* WSP+5=(ROUT) 

* RD =6 


WSP+10= 

(T EST + 2) + 128 
(PART OF DED) 


WSP+7=X3033 

wsp+2=xaoBa 

RD=11 

(COMPL.DEC) 


♦G4****** 

SET WS2 


**«**H4********** 

* GENERATE * 

* NEW VAR. * 

* WSP+9=(VAR2) * 

* RD = 17 * 


PICTURE 
ATTR. IN 
TEST 


* INSERT NAME * 

* OF PICT.STR. * 

* INTO WSP+5 * 
*(PREP.L-DED M.)* 


* L+2=(IJKMVC) * 
•(SAVE COUNTER) * 
*WSP+9=(TEST+1) * 
*( INS.PRECISION)* 


OPWSP 

"(EDIT) 


SET 3RD 
KIND CF 
ERROR 


X 

D1 


CHART OX. 


IJXD75 


GET/PUT4 
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D3 *X... . * 


■»**** A 4* * * * * ft * 
TE ST+1=53 




TRANSFORM 
DEC.PRECISION 
IN TEST +1 
INTO BINARY 


ft DEC. 

FXD.GR ST. 
*. IN TEST 


.* BIN. *. NC .•» 8 IN. *. NO .* CHAR. ft. NC 

...X*. FXD.IN TEST .ft. X*. FLT.IN TEST .. IN TEST .*... 


ft wsp+£=xs:oea 

* BUILD DED 

* FROM TEST 

* BYTES USP+IO) 


**ft*Elft***ft** 


wsp+8=xaooa 

wsp+io=xa8ca 

(BUILD DED) 


* C3 
FGET35 


*D3« ****** 

WSP + 8=X J)043 


L + 3=(TE ST+i) 
(LENGTH FOR 
ARRAY EL.) 


***D5 ******** 

WSP+6=Xai82 


CHmRT OY. IJXD75 

24o 


GET/PUT5 






















( 


( 



*A1*»*** 

ENTRY 


INEUF . . 
BEGINNING 
OF INPUT 
BUFFER 
*****B1< 


WSP =X3F3a 
In SP+ 5 =XSCC 3 
( PARTS OF C.) 
RH=INB IF 


***C1******** 
INPO = INPO+3 


t«*« 62 **««***» 

* RC=BIN.VALUE 

* OF FORM.I NT. 
*INPC=INPC+LGTH 


***C2* 

INPO=INFO+3 


***B3*»***» 

RC=RC+1 


FORMAT 
ITEM IN 
POINTER 


* ( RH)=X£8G2 

* ( BUILD FED FOR 

* REPL.FACTOR) 


X 

*****F1********* 

* RC=BIN.VALLE 

* OF FORM.INT. 
*INPO=INPO+LGTH 


NO .* RIGHT 
...*. PARANTH. 

* IN POINTER. 


*■***03* 

(RH+2)=2*RC+ 


PC=PC+1 
(PAR.COUNT, 
ORIGINALLY 0) 


SAVE FORMAT 
TYPE 

I NPO = INPO+6 


*****F2********* 

* RC=BIN.VALUE 

* OF FORM.INT. 

*1NPO=INPO+ LGTH 


«**H2*** ** 
SET SW 


***J2******** 
{RH+2)= 2*RC 


*****F3********* 

* RC=BIN.VALUE 

* OF FORM.INT. 
*INPO=INPO+LGTH 


•£5****** 
RH= kri + 4 


INPC =INPO+3 


NO .* RIGHT * 
...*. PARANTH. 

•IN POINTER.* 


***F4******** 

INP0=INP0+3 


********** 


*IN POINTER.* 


****H4»******* 
(RH+2) =Xa003 


PC=PC-1 

(rh) =xacoa 

RH=RH+1 


* RI=WSP+6= * 

..X* RH-INBUF+1 * 

* WS P+1 = RI +8 * 

*(COMPL. CONST.)* 


* RIGHT * 
PARANTH 

* IN POINTER.* 


****J4******** 
(RH+3)=X380a 


***K3»*»*»*** 
INPQ=INPO+3 


* RC=6IN.VALUE 

* OF FORM.INT. 

. X*INPC=1NP0+LGTH 


CHART CZ. IJ XD7 b 


BUILD FORMAT STRING 1 
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X ITEM *. YES 


( RH + 3)=RC+12 8 


SET SW3 
FOR MINUS 
IN FERMAT 
INTEGER 


(RH+il=xaiGia 
(BUILD FEC) 
INPO=INPO+3 


» LEFT * 
PARANTH. 

* IN POINTER.* 


* RC=BIN.VALUE 

* OF FORM.INT. 

.X*1NPC=INP0+LGTH 


* SET BITS 
...* FOR SUITABLE 
. * WARNING 


I NPO = INPO-3 
(RH+1)=0 
( INSERT ZERO) 


*****G2********** 

* RC=BIN.VALUE * 

* CF FORM.INT. * 
*INPO=INPO+LGTH *X. 


***F5********** 

irh)= xsica * 

SET BIT IN *. 
LIBR.STR. * 


(RH)=X33CS 
(KEY FOR A 
ITEM) 


SET BIT 
IN LIBRARY 
STRING 


(RH)= X3143 
(KEY FOR B 
ITEM) 


* RC=BIN.VALUE 

* OF FORM.INT. 

* INPO = INPO+LGTH 


(RH+2)=RC 
(RH)=X3203 
SET BIT IN 


CHART Ra. IJXD75 


BUILD FORMAT STRING 2 
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FORMAT 


(RH)=X£90S 
(BUILD FED 
FOR REMOTE 
FORM-ITEM) 


RH =RH + 1 
HSP+5=XS3Ca 
(CONST.NOT 
OP TIMIZBLE) 


* WSP+6=RH- 

* INBUF 
•(COMPL.CONST.) 

* INPO = INP0 + 6 


PREP.NEXT 
PART OF FORM. 
CONST. 


Sfo3 *. RES 


(SKIP MACROS) 


****03******** 

SAVEB=Xa023 
(SETTING FOR 
LIBR.ROUT . 
SELECTION) 


RC =-RC 


**D4******* 

RESET SW3 


( RH) = (INPQ+1) 
(INSERT NAME 
FCR CONST.) 


(RH)=X3D03 
(COMPL.FORM - 
STRING) 


•FIND LABEL NAME* 

* IN TABLE AND * 

* INS.INTO (RH + 5)* 

* RH =RH+9 * 


BUILD ZERO 
HEX.CONST. 
IN (RH+2) 
RH=RH+8 


* RH=RH-INBUF 

* NSP+l=RF+fi 
•(COMPL.CONST.) 
« INPO = INPO + 3 


* RD..8 * 
•(EDIT 1ST PART * 
•OF FORM.CONST.)* 


RC=INBUF 
RD=RH 
RH =RC 


•**G3******** 
INPO=INPO+3 


*WSP+3=(INPO+1) 

* (GIVE LABEL 

* NAME TO FORM. 

* STRING) 




RD..RI 
RC..INBUF 
(EDIT 2ND P. ) 


CHART R 6 • i JXD75 


BUILD FORMAT STRING 3«FORMAT 
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*A1****« 

ENTRY 


RA..IJKMBL 
RC..LIBUF3 
RB..I NBUF 


RA..2*1JKMBL 
RC..LIBUF2 
RB..INBUF 


•X* RA-.3*1JKMBL 

* RC..LIBUF1 

* RB..INBUF 


* El *.. 
DINPO*** 


»E1***** 

RETURN 


**C3******* 
R1=LIBUF2 


INPO = 
INPO- 
I JKMBL 


R1=R1+IJKMBL 


L1BUF1-. BEGINNING CF INPUT BUFFER 2 
LIBUF2.. BEGINNING GF INPUT BUFFER 3 
LI8UF3.. BEGINNING CF INPUT BUFFER 4 
IJKMBL.. BLFFER LENGTH 


CHART RC. IJX075 INPUT 
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*A2 * * * * * 

RC = WSP 


*A3****» 

ENTRY 


*B1******** 
RB =QUPO 


CUPC.. CUTPUT POINTER REG.10 
LENGTH.. CCNT.GF RC 


OUPO + 
LENGTH GE 
. INBUF 


LENGTH1= 
INBUF 
-CUPO 




L ENGTH = 
LENGTH- 
LENGTH1 


RA..LENGTH1 




RA..LENGTH 


*«F2***** 

RETURN 


OUBLF.. BEGINNING CF CUTPUT BUFFER 


CHART RO. IJXD75 


OUTPUT 
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MCVE 


CHART 


****A2 

ENTRY 


RA «. NO 

GT . 

256 .* 


*****C2********** 

* MOVE * 

* (RC) TC * 

» CRB) * 

*(LENGTH EC 256)* 


SET RA 
TC 

RA-256 


SET RC TC 
RC+256, 
RB TC RB 




* MOVE 

* (RC) TO 

» (RB) 

*(LENGTH EQ RA) 


«D3*«******* « 


SET RC 
TO 

RC + RA 


***E3********* 
RETURN * 






RE, IJXD75 MOVE 
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***A1 


ft**-***-*-****-****** 


* SEARCH 
.X* FOR REC.CR-, 

* CPEN/CLCSE 

* AND DISPL.ST. 




END OF 
PROGRAM 
PROCESSING 


«■**■«*■*** 


***c 4** ** * 


*«*«E3*******-»* 

* EXIT * 


.* ■»««*G2 * •» * * 

» XaFFS *. YES * EXIT 

IN POINTER .*.X* 

*. .* * ECP 


HI 

E-KEY **. YES 


RG = (INPO+1) 


* J2 

P**** 

#**«*J2 

* RG=6 


*■»******■»*■***•»*** 


.» REC-CR. *. NO 
. X*„CPrN/CLGSE OR.*... 
*. DISPLAY .* 

*. ST. . * 


EXIT STATEM. 


PROCESSING 


CHART RF. IJX080 


PHASE DESCRIPTION,SEARCH 
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FGET1 




*A1»**** 

ENTRY 


..X* RA..RG 
* RB..RI 
* RC..INPG 


»**B2****«* 
INPC=RC 


SKIP 

6 BYTES’ 


ADJUST INPC 


RI = VARBG 
RG = LF.NGTH 
OF TABLE 


WS P = MASK 
OF PARAMETER 
LIST 


* REC- 
VAR- IS 

*MAJ.STRUCT. 


.* REC. 

. VAR.IS 
*.NUM.FIELD. 


.* REC. 
.VAR.IS CHAR. 
*. STRIMG . 


RC=LENGTh 
OF ARITHM. 
DATUM 


.* OPEN 
.X*. CR CLOSE 
*. STMT 


INSERT 
LENGTH OF 
STRUCTURE 
IN PARAM. 


SET FLAG 
BYTE IN 
PARAMETER 


* WS P+2 = 0 * 

* (INITIALIZE * 

* LENGTH CCUNT * 
*FCR NEW P. PART )* 


UPDATE INPC 


X 

**E5******* 

* SETIN2 * 

UPDATE INPO 


REC. 
VAR.IS 
ARRAY 


RC =RC* 
NUMBER OF 
ELEMENTS 


RA=ENDBUF- 
I NPO 
RB =R I 


.* REC. * 
. VARIABLE 
* I N POINTER.* 


WSP+2=XaiB3 
(LENGTH OF 
CONSTANT) 
Rl =18 


«*J2*****«« 
RI=WSP+RI 


ANY 

OPTION IN 
. POINTER . 


* KEY OR 
KtYFRCM 
*. OPTION 


***# 

K3 


LOCATE 
STMT.IN 
SAVES 


* RA=ADGR.OF * 

* VAR.IN TABLE * 
*(FIND VARIABLE)* 


INPG=INPO+6 
RI = 3 

(FROM OR INTO 
GPTIGN) 


INP0=INP0+6 
(POINTER ON 
FILE NAME) 


(^jt 


CHART RG. IJXD80 


STATEMENT PROCESSING 1 
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A4* FREC15 


# A1* 

FREC18 


* RI=hSP+RI * 
*(WSP+2)=(WSP+2)* 

* +RB * 


( R+2)=X3AG3 


< 


UPDATE INPO * 


*D1*** ** 
SETIN2 


UPDATE INPO 


* RI=RI+9 * 

.X*(WSP+2)=(WSP+2)* 
» +21 * 


El* 

FREC17 


(R1)=X2CC0C20 
Q€S4£ 
(MASK FOR 
CONST-) 


* YES 

* D2 * 

FREC*3** 

***** 02 ******** 

* (RI+2)=X3603 


INSERT 
NAME IN 
PARAMETER 


* BUILD LCAD * 
..X*VARIABLE MACRC * 
•INSERT NAMES CF* 
*PAR. L.AND VAR.* 


SET SW6 
(SW.FOR OPEN 
STMT.) 


* SAVE2=INPO+1 

* (TRANSF.NAME) 
*( INPO + 1)=DUMMY 

* FILE NAME 


W SP =MA SK 
FOR INITIAL. 
MACRO 


WSP+4=SAVE2 
WSP+7=LIBR. 
ROUT. 


* RD..8 

(EDIT INITIAL. 
* MACRO) * 


RC..WSP1 
* RD..14 * 

(EDIT L.V.M.) 


,.X* UPDATE INPO 


D5* 

FCP3 


UPDATE INPO 


•**G2**+**** 
SET SWITCH 


» 3READ 
SET3STATM. 
*.IN SAVES 


SET BIT 
FOR LIBRARY 
BITSTRING 


DECLARED 
VAR. IN 
. POINTER 


* RA=ADDR.OF * 

* VAR.IN TABLE * 
•(FIND VARIABLE)* 


INSERT 

MODIFIER 

X3043 




UPDATE INPO 


••*«J5*****«** 

INPC= INPO+6 
(STEP TO 
NEXT FILE 
NAME) 


•MODIFY IF EL.CF* 
* STRUCTURE, * 
BASED,DEFINED 


*** 
E5 * 


CHART RH. IJXD80 


STATEMENT PROCESSING 2 
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SET END 
MARK IN 
FLAG BYTE 


RD..18 
(EDIT PART. 
*PARAM.LI ST)* 


***C1********** 

INPO=INPO—6 * 

(RESTORE * 

POINTER) * 


X 

*RK * 
** G ** 

* * YES 





X 

*YES 

* 

X 

****02********** 


X 

«*«**D3*******') 

t ** 

X 

*#***D4********** 

*****05********** 


* WSP+3=IJKMVC * 

* WS P+2 =9 * 

*(BUILD PAR.LIST* 

* FOR PAGESIZE) * 


El 

SWITCH2 


* SET ERR.IND. 

* IN COMM.REG. 

* AND EOS KEY 


UPDATE INPC 


* SETIN2 * 

UPDATE INPG 


* WSP2+5=IJKMVC 
*KSP2+10=(INPO) 

* (BUILD MGVE 

* MACRO) 


.X* INPO=INPO+12 


ADJUST INPO 


X 

**C3******* 
* SETIN2 

UPOATE*INPO 


* DED,LOAD DED, 
..X* LOAD TRANSM. 

. *AND LOAD SCAL. 

. *MACROS IN WSP3 


* * * * * B4* ******** 

* WSP3+15=xa3BS 

* (DISPL.RGUT.) 

* SET LIBR.BIT 


RS P3 + 31 = NAME 
(INSERT NAME 
FIELD) 


UPDATE INPO * 


WSP3+9 =(RA+6) 
(DED) 

CLEAR NAME 
FIELD 


WSP=MASK 
FOR INITIAL. 
MACRO 

WSP+4=IJKMVC 


WSP3+30=X3E42 
(KEY FOR 
VARIABLE) 
CLEAR NAME F. 


* FIND VAR. 

* IN TABLE 
*RA=ADDR.OF VAR. 


X 

I X 


X 

FDIS1 .*Y ES 

**E2******* 

*****E3********* 


E4* **. 

£5 *. 

CPWSP * 






I * WSP+7=xaiA3 


.** CHAR. **. NO 

.*” DECL. 

RD..9 * 

*(ROUT.FOR PS.) 

* 

*. STR.CONST. .*... 


(EDIT) * 

•SET LIBRARY BIT 

* 

* IN POINTER.* 

*. POINTER 

* 

. * 

* 



*********** 

. **************** 

* 

***YES 

* *N0 


* WSP3+32=X2u32 * 
*WSP3+33=(INPO+1* 
*WSP3+9=(INPO+5)* 

* (DED) * 


INPO=INPO+3 


*WSP3+9=(INPO+7)* 
* (DED) * 
*WSP3+3D=(INPO) * 
*(KEY AND NAME) * 


RSP3 + 35 = X2)802) 
(ATTR.BYTE) 

INPG=INPO+9 


*WSP3+3=WSP3+21 * 
*=IJKMVC (NAMES * 
*OF VAR.AND DED)* 


X 

*J4***»* 

OUTPUT 


UPDATE INPO 


* UPDATE INPO *X. 


WSP3+15=X33Ca 
(REPLY ROUT.) 
SET LIBR.6IT 


* SET IN2 * 
UPDATE INPO 




* YES ,*,* 

:. x * ei 


CHART RJ• IJXD80 


STATEMENT PROCESSING 3 
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* A1 ♦ *■*** 
ENTRY 


B 1 

* I JKMVC=0* 


WSP=MASK 
FOR IN.MACRO 
WSP+4-SAVE2 


«C3**** 

RD = 8 


..X* RL..18 

* { EC I T PRECED. 
♦FILE NAME) * 


* INCLUDE 
♦LIBRARY BITSTR. 

* IN COMM.REG. 

* (IJKMLB) 


INPO=IJKMLB 


*D1»*** 

EXIT 


WSP+7=X318a 
(OPEN ROUT.) 
SET LIER.BIT 


♦ BIT 
187 OR 191 
*. SET 


♦♦♦D5* 
SET B 


* l * **•*■*# 
EXIT 


UPDATE INPO 


WSP+7=Xai93 * 
(CLOSE ROUT.) ♦ 
SET LIBR.BIT * 


OPWSP 

(EDIT)* 


FLIB7 

...x*:* 


♦ RF =8 

*RH = (INPO+(RG)) 

* (FETCH NEXT 
♦BYTE FOR SCAN) 


E5 ♦. 

RG=7 *♦. YES 


♦ NO 

l.X* F4 ♦ 


EDIT COMMON 
NAME FCR 
CONV.ROUTINES 
MODIFY CONST. 


IJKMLB.. 
LIBRARY 
BIT STRING 


INSERT 

PRIMARY ENTRY 
POINTS IN 
IJKMLB 


HI ♦ 
RG=G 


*Jl****** 

RG =RG-1 


J2 ♦ 
RF=0 


**J3********** 


♦ADDRESS CONST. 

* MASK IN WSP4 

* RA = WSP4+4 = 

* RG*8+RF-9 


*K2« 
RF=RF-1 


♦ ♦RK ♦ 
♦ ♦ K4* 

FLIB4 


♦ WSP4+9=HSP4+4 

.* RC=WSP4 

♦ RD=12 


FLIB8 .*. 

K5 ♦ 

RES .♦* SW1 




CHART RK. IJXD80 


COUNT, ST.PR0C.4, *EOP PROC.l 
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[ A^y 


» SET END BIT 

* IN LAST CONST. 
« FOR CONV. 

* ROUTINES 


RA=WSP4+4 

(RESTORE 

NUMBER) 


*RL 
* C3 

FLIB2 


* ACDR.CONST. 
*FOR CONV.ROUT. 

* M1+4=M1+15=RA 

* M1+8=RA—40 


*-»F3******* 


SET BITS 
IN LIBR.STR. 
AND COMM. 
REGION 

«««*»«***««** 


X 



CHART RL. IJXD80 EOP PROCESSING 2 
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CHART 


*A1*** 
I JXE2 


SCAN TEXT 
FOR 

ERRCRS 


*. N GET NX 


***E2* 

NOTE END 
OF TEXT IS 
DETECTED 


F2 *- 

.COMMENTS*. 

*ON SCRATCH ». YES 


G2 *. 
N GT NO 

' *NC 


**»*»H2******««* 

* STORE 

* COMMENTS 
*IN TAB-STCRAGE 


**#D4*«***** 

MOVE 

COMMENTS 
ON SCRATCH 


PRINTING 

OF 

ERRGR-LI ST 


**J4**** 

END 


SA. IJXE25 DIAGNOSTIC I 
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CHART 



****A3***** 
* IJXE25 


***B3******** 
INITIALIZA¬ 
TION OF 
BUFFER 
ADDRESSES 


***C2******** 

BUFFER(3 ), 
(4),15)WILL 
BE CONTAIN 
LSTNC 


X 

****C3********* 

LOAD 

BUFFER(l),(2) 
WITH 

TEXT INPUT 


***D2******** 

TABLE-SPACE 

CONTAINS 

LENO 


*NO*(TSP-LLEND>* 
* /LCOM 


•**»*«****« 


****F2******** 
TABLE-SPACE 
WILL BE CON¬ 
TAIN ERROR- 
COMMENTS 


**G2*»*** 
NX = NQ 


X 

* PHASE-SPACE 

* WILL BE CON- 

* TAIN ERROR- 

* COMMENTS 


***»G4******** 
NX=PHSP/LCOM 


...X. 

X 

H3* **. 

ERRS=1 

*'*NO 


X 

***J3******* 
NOTE- 
COMMENTS 
ON SCRATCh 




SB. IJXE25 


STORAGE ALLOCATION 
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CHART 


****33********* 

X=B(0) 

S=ENTRY LSTNO 
N=0 

E= ENTRY LEND 


.X*. (X)= EOS 

* * *NO 


E3 *. 
.♦MACRO, *. 
YES .*VARI ABL Ey OR* 
....*. CONSTANT 


STATEMENT 
IDENTIFIER 
X = X+6 


C4 *. 

.X*I * BAD-ST. 


X 

**E4******* 

NOTE 

SEVERITY 
OF ERRORS 


X 

*G4**«* 

HERH 


**•J4******** 

STORE 

ST,NO TO S, 
E.NO TO S+2 
S=S+4 


SC. IJXE25 


SCAN OF THE TEXT STRING 
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CHART 


/O 




**«**E3******* 

* SAVING OF 

* X AND 

* ST.NO 


D4 *. 
N GT NX 


*****E4»**» 

.* sx=s 


SO. IJXE25 


COUNTING OF ERRORS 
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CHART 


X 

B3* ’*. 

.•‘comments***. YES 

*. ON SCRATCH .*... 



SET * 

PARAMETER * 



* *D3*****»» 

* ZTOUT * 

* PUT COMMENTS * 
* ON SCRATCH ^* 


X 

E3 * * * *. 

LAST V 
*. PHASE OVER- 
*. LAY 

*NO 


X 

»F3**** 

LOAD 


X 

* CHANGE * 

* PARAMETER * 



SE. IJXE25 STORING OF COMMENTS 
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CHART 


r 


****B3********* 
E= ENTRY LENO 
C = CD 

SET PARAMETER 
FOR 2TIN 


X 

*»C3*****»* 

* ZTIN * 

MOVE 1 COM¬ 
MENT FROM 
*SYSOOl TO C* 


D3 *- 
(E) =1 

*'*YES 


*****E3******** 

* STORE C IN E 

* C=C+LCOM 


E = E+1 

SET PARAMETER 
FOR ZTOUT 


SF. IJXE25 SORTING OF COMMENTS 
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CHART 


NOTE END 
OF TEXT IS 
DETECTED 


« C3 

N GT NO 


****03******** 

E=ENTRY LENO 
A = AO 

C = CO 


E3 *. 
{ E) = l 


* G3 *" 
E LT A 

*N0 


*****H3***** 
* A = A+AC' 


J3 *. 

.* LAST *. 
NO .*PHASE-OVER 
LAY 


MOVE 

COMMENT(X) 
TO C 


* »*»G4* * * ** * 

C TO E 
C=C+LCOM 


••***•#***** 


SG. IJXE25 


END OF THE TEXT-STRING 
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PRINT HEADER 
LINE 
SW=Q 


B3 *. 

YES .** SW=SWC« 


*C2****»* 
S = ENTRY 
LSTNC 


*e!nO*Ts+2)* 

ST-NG-=(S) 


X 

* ****D3 ********* 

* CONVERT 

*E .NO AND ST.NO 

* INSERT 
*E.NO AND ST.NO 


tf*««*E3********** 

* ACDRESS OF * 

* COMMENT C= * 

* (LENO+E.NO) * 

^INSERT COMMENT * 


X 

**F3******* 

* ZPRINT * 

* PRINT * 
ERROR-MESSAGE 


*G3***«* 

S=S+4 


» GA *% 
.X*I* S LT SX 


****H2********* 
CLEAR LENG 
SX=SX0 
N=0 

S=ENTRY LSTNC 


*SH *.. 
* HA* 


****H4******** 
TAKE ST.NO 
TAKE X 

E=ENTRY LENO 


X 

J3” 

EOC 

*. . 

*NO 


*****j 4********** 

* CLOSE FILES * 

* PRINT * 

.X* MESSAGE Ml *. 


•*»*J5•*»**•*** 

.X* EOC 


*K1**** 

EOPH 


**K2*»**«* 

PRINT 

MESSAGE 

M3 


NO .* EXECUTION *. YES 
...*. TO BE DELE- .*.... 
*. TED .* 


*****KA********** 

* NOTE NOLINK * 

* PRINT * 

X* MESSAGE *. 

* M2 * 

***************** 


•***K5********* 
* EOPH 

*************** 


CHART SH« 


IJXE25 


PRINTING OF ERROR LIST 
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CHART 


««*#A3********* 

hERH 



A=L 

V = L EIJGT H 
OF BUFFER 


C3 *. 
V LT A 


***»*D4* 

* L = V 


X. 


X 


*****E2*- 


«««*«**« 


A=A-L 


»»»»»»»**« »*»««*» 


* »■#■ * *62 * * * * * 
* E=B1-X 


«»*•»»***»«<****»* 


H2 *. 
E LT L 


*SK* * 
* A3* 


*■***# J4** 

* E = 1 


SJ. IJXE25 


SKIPPING OF INPUT-TEXT 
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CHART 




*E2******* 
X = X+ L 


B4 * 

.X*I* E =0 


*****C4********** 
.* X=X+B0—B2 * 


**D4********** 
MOVE * 

4BYTES TO * 
BUFFER(3) *X.. 


*G3**»** 

RETURN 


SK. IJXE25 


SKIPPING OF INPUT-TEXT 
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( 


*****B3********** 
•INITIALIZATION * 

• OF BUFFER- * 

* ADCRESSES * 
•LOAD I-BUFFERS * 


*****03********** 

* GENERATE * 

* ADCRESS-CON- * 

* STANTS FOR * 

* K-BLOCKS * 


L=(X+l) *X. 


L=(X+l) *X. 


CHART TA. IJXE50 


GENERAL FLOW 
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(T' 



*B2**«* 
L = 6 


EOS 
* *NO 


EOP 
* »YES 


***G3******* 
CHANGE KEY 
FOR EOP 


.X* ERROR-EXIT 



EOPH 


CHART TB. IJXE50 


GENERAL FLOW 
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CHART 


••A2******* 
A = ( X+3 ) 
TRANSLATE 
W=F1(A) 

2 BYTES 


••••A3******** 
MOVE ( X +2 ) 

1 BYTE 
TO X + l 


**B3***»* 

STORE W 
IN X + 2 


••C3******* 
TRANSLATE 
Z=F2<A) 
IBYTE 


*»D3»***** 

STORE Z 
IN X 


X 

**,*, E3 ***«*,,* 1 

* NOTE Z 

* IN PHASE-TABLE 


.X* MOVE OPERAND 
* LIST TO 
* BUFFER 4 * 


•BRANCH TO SUB- 

* ROUTINE VIA 

* TABLE MATAB 


TC• IJXE50 


GENERAL FLOW 
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/f~ 


**A2**«*«* 

PRCLCGUE 


NAME CF 
GETDSA-RCUT. 
= 17 


B3 *. 
ON 

SYSLOG 


*****B 4*** **** *** 

* NAME OF * 

* GETDSA ROUT. * 

* =18 * 


**»*D1********** 
HEINS * 

-*-BALR*15,0-*-* 

BEGIN *X. . 

NGPR * 

BAL 14,1G(15) * 


**«**C3********** 

* NAME OF * 

* C-ETOSA-ROUT. * 
.* =16 * 


*«,***D2****«»**** 

* HMOCG * 
*-*-CN0P*2,4*-*-* 
*IND.C0DE(17,lO)* 

* BAL 15,0 * 

* BAL 14,8(15) * 


*****E3********** 

* HMOCO * 

.X«~DC*A(STATIC)* *X. 

* L 12,0(14) * 

***************** 


****F3 ******** 
LAB2=LABEL+1 


**G3********** 
INSERT * 

FLAG BYTE * 

INTO CODE * 


*****D4********** 

* HMOCO * 
*-STM-14,12,12*-* 
*(13) CNOPO 0,4 *X 
*IND.C0DE(22,12)* 

* BAL 14,12(15) * 
***************** 


*»***D5****** 
* HEINS 

*-*-*—*—*-*-* 
.* BEGIN 


************ 




X 

«***J2 ******** 
HEINS 

-*—*—*—*—*-*-* 
LABEL LAB2 
DC AS(LABEL) 

L 9,LAB2 


***************** 


CHART TO. IJXE50 


PROLOGUE-MACRO 
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CHART 


* HEINS * 
*-*-*LR-3,1-*-*-* 
*L 15,=A(GETCSA)* 

* CNOP 0,4 * 
*IND.CODE(33,16)* 


X 

*-*«*C3*-*****»* 

HEINS 

-*-BALR*14,C'~* 
LA 14,14(1A) 
BALR 1,15 


*****D3********** 

* HEINS * 

*-*DC—X3FLAG3-*-* 
« CC AL3(ON-BL) * 

* DC X2LENGTHOF * 

* DSA3 * 


LEVEL 
1,2 OR 
3 


L 11,76(13) 


****G3********** 

HMOCO * 

-L-l,LIBBLOCK*-« 
L 15,=LIBL0AD * 
BALR 14,15 * 



**«*J 3***«* 

TAKE N 


TE. IJXE50 


PROLOGUE MACRO 
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/T" 

i 


**B2***»**« 
X=4*(N+l) 


***C 1******** 
END 

************* 


**************** 


***»*Q4********* * 

* 1=4 *X. 


***B5 

OP IS 
POINTING TO 
THE FIRST 
PARAMETER 





* P= * 

* PARAMETER * 

* (OP) * 

* * 


***************** 


*****E4********** 

* INSERT A=P * 

* AND I * 

* INTO CODE * 


•»F2******** 
L = L+4 


***************** 


*G3*»*** 
P = P+4 


OP GT 
END OF 
MACRO 


************** 


**H3******* 
INSERT L 
INTO CODE 


NO .* OP GT 
,..*. END OF 
*. MACRO 


*****J3********* 

* HMOCO 

*-*—*—*—*—*—*—*- 
.* MVC AIL),1(3) 



CHART TF. IJXE50 


PROLOGUE MACRO 


(If N 
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< 

•*»*A3*»******* 

* SHIFT * 


Z GT .** 



z=o 


z=o 




•**•* 02 ***** 
* V=LX—T 


* E2 *' 
V GT 0 

* *N0 


•03***** 

U=LY+T 


E3 *. 

• * 

U GT 0 

*. .* 

'♦YES 


***»G2********* 

* RETURN * 


J3 *. 

Z EVEN **. ODD 


(••«K3********** 
HEINS * 

-*-*—*-*—*—*-*-* 
MVO * 

X(LX)«X(LX—U * 


***»KA******** 

* RETURN 


CHART T6. IJXE50 DECIMAL SHIFT 
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V- 


****A1******** 
* MULTIPLIC. 
************** 


**A2****** 

ADDITICN 


*B2**»** 

OPC=AF 


**A3****** 

SUBTRACT. 


**»A4********* 
COMPARSION 




A=0 

*‘*YES 


**D2* 

XI=CP2 
X2 = L2 
X3 = A 
QP2=0P3 


B4 *. 

* * 

A=B 


*C 4***»* 
OPC=CP 


***D5********* 
RETURN * 


**E2*«*** 
L2 = L3 
A=B 

0P3=X1 
L3 = X2 
B=X3 


*****F2********** 

* SHIFT * 

♦-SHIFT-GW0+16*-* 

*(16),CP3<L3),B *X. 


***»*E3********** 
* SHIFT * 

♦-♦-•-SHIFT-*-*-* 
.X*GW0116),0P2(L2)* 


*F3 *. # 

B=0 


X 

****G2********* 
HEINS 

-aopca-Gwoa6)- 

GWO+16(16) 


X 

^H3* **.^ 

*I*COMPARSION 
*• . 

*. .* 

*NO 


*J1****» 

RETURN 


**H4*«*** 

RETURN 


*J4********** 


*************** 




CHART TH. IJXE50 


DECIMAL ARITHMETIC 


4 


27o 






































CIV IS ION 


SHIFT 
GW0IL3+8), 
S2 ( L 2)* A 


» DP GW0(L3+8), 
* S3(L3) 

*MVC DPl(8)iGWG 


»#**Q3*******»* 


CHART TJ. IJXE50 


DECIMAL DIVISION 
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CHART 


#«*A2**«**#« 

NEG+ 2 CP. 


*»*#A3******* 
* MEG. 1 OP. 


*D3***»* 

RETURN 


««•****#******» 


TK. IJXE50 


DECIMAL NEGATIONS 
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ASSIGN 


( 


< 


S=4 
* * *YES 


03 ♦ . 

A LT 0 


E3 ♦ . 
A,EVEN 


• *ODD 

C4 *. 

•X*I* A,EVEN 

‘♦EVEN 


♦ ZAP 

♦ GW0 + 16-LKL1), 

♦ GW0(16) 


*F4******** 

RETURN 


* MVO ♦ 

* OPllLl) * 

* GW0 + 16-L1{Ll-1) ♦ 


X 

*J3#^*#* 

HEINS 


♦ MVN 

♦ 0P1+L1-K 1) 

♦ GWO+15 


♦ RETURN 

-»•*******#♦ 



CHART TL. IJXE50 


DECIMAL ASSIGNMENT 
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CHART 


«*«*A3********* 

CV30 * 


HEINS 

CVB R1,GW0 



TM. IJXE50 


DEC FIXED TO BIN.INT.CONV 
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( 

CHART TN. IJXE50 BIT STRING TO BIN. NT CONVERSION 
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CHART 


a 


***A3******* 

REPEAT 

***•*••**•** 




•«•*•••*******•• 


*«*D3***«****» 

RETURN * 


TO. IJXE50 


REPEAT-MACRO 
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( 


GENERATE 
LA INSTRUC¬ 
TIONS 


L 4,M 
LABEL 
ST 4,DSA 


CHART TP. IJXE50 


ARRAY EXPRESSION HEADER 
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CHARI 


/C 


♦A2***** 

AREXEN 


**C2****« 
RI = 14 


,.X* LA RI, C I ( RI} 


****«E2* 

* RI=0 


# F2 
RI =16 

*"*YES 


***#*G2****'**'» 
* RI=R(I)+1 


D3 *. 
•X»** RI=0 

*NO 


**E3******* 

ci=c( n+i 


G3 *- 
RI=4 

* * *YES 


LM 14,4, 
GW0+80 


* BCT 4,LABEL * 


*J4***»* 
RETURN 


***K3***** 

Z=Z+28 


C3 * 

* #*** 


TQ. IJXE50 


ARRAY EXPRESSION END 


4^ 
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( 


( 

CHART 


**A2*«**«* 
CALL (3) 


B2 *. 
YES .** S1=EXT. 


SI DC A < S1 ) 


**.*#C2* 

.X* HMLC16=0 


R1=0 
0P=0P3 
HMLC16=16 


CONSTANT 
LA REG,OP 
INSTRUKTIONS 


X 

***E2***** 

HEINS 


DETERMINE 

RS 

RS=F(X,Y) 


E4 

RS=0 

*‘*YES 


F3 *. 
HMLC16=G 

* *NO 




TR. IJXE50 


CALL-MACROS 
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/f 

( '' 

V 


****A3********* 

I LAREG » 



2-0 



CHARI TS. IJXE50 LOAD ADDRESSES 


f 

X. 


28 o 



































CHART 


**C3******* 

DETERMINE 

RS» 

RS=F(X* Y ) 


NAME DS ID 


LA RI»NAME 


G3 *. 

.** N 

-X*.^ OP=EXTERN 

*'*YES 


OP DC A(OP ) 


X 


TT• IJXE50 


LOAD ADDRESSES 
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CHART 


V_^' 


**A2****« 
I JXE60 


»*C2****«* 

EQPH 


*E2****«* 

SW=SW2 


.« IS *. YES 

. NECESSARY 
*.PH—OV(1 ) .* 


NO .* IS *. 

NECESSARY . 
».PH—OV(2 J .* 


X 

E3* **. 


•**«F3********** 

IN IT IL ISAT ION * 
OF BUFFER * 
ADDRESSES 


LOAD 

BUFFER!1),12), 
(3) 


•****H3*»***»* 

* X=B(1) 

* Y=B(5) 

* S = 1 


UA. IJXE60 


SECOND GENERATOR-PHASE 


4 ^ 
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B4*** 


EOP 

*‘*YES 


**»*E2 »***■»** 
* ERROR-EXIT 


MOVE TO 
OUTPUT-BUFFER 
LENGTHS 


L = (X+1) 
1 BYTE 
l = (X) 


MOVE 

OPERAND LIST 
TO BUFFER(4) 


DETERMINE 
THE NEEDED 
CODE 


CHART UB. IJXE60 


SCAN OF THE TEXT-STRING 
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■» * * « A 3 * * * ** 
HCETER 


S=ENTRY 

MACRO¬ 

DEFINITION 

W=0 


E2 *. 


F2 *. 
K = I 


G2 *. 
NO .** K=0 


CLC 

OPL+P1 

WITH 

0PL+P2 


* 4 *-***■*•** 

* CLI 

* OPL+P 

* WITH 

* S+I 


«J3***** 

W=2*W 


* J4****»* 

W=2* W+I 


***K4***** 
S = S + 3 


TM 

OPL + P 
WITH 
S + l 


CHART UC. IJXE60 


DETERMINATION OF CODE 
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MOVE 

BYTEI S + l) 
TO OPL + P 


•C3***** 

S = S+3 


LOAD 

REGISTERS 

WITH 

ADDRESSES 


*D2*****« 
A={S+W) 


El *. 
B=4 


TAKE W 
FROM 
0PL+200 


STORE W 
TC 

QPL+200 


*G2****** 
A= (S + l) 


***E3******* 

S=S+1 


3*** »**«•*** 

* W=0 * 


*-»-mn*G3******** 
* CS=(S+2) 


****F4***** 

S = S+4 


X 

G4* ***. 
W = WX 


HI *. 
B =7 


**H2****-»* 
DS=(S+l) 



NO .* DS =0 


INSERT 

ADDRESS= 


CHART UD. IJXE60 


DETERMINATION OF CODE 
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CHART 



*B3****« 
P = (A) 


LM=A+(A+2) 


C4 *. *****C5********** 

P=1 **». YES * A=A+(A+l) * 


D3 *. 

’p LT 224 **. NO 


«E2***** 
A = A + 3 


M=(A+l) 
LM=(A+2) 
+A 


**************** 


V.^ 


MOVE 

OPC=(A+l) 
TO M1+4 


*************** 


*****J4*••***• 

* P=P2 

.* M=1 

* LM=MI+6 

************** 


/O 


UE. IJXE60 


INSERTING OF THE OPERANDS 
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*B4*** 


P = P3 
M = 21 
LM=MI+7 


P = P4 
M=21 

LM=MI+12 


X 

***#F2****«* 

HUE-C 

MOVE CODE *X. 
TC 

CUTPUT-BUFFER 
X 


*• 

***F3********** 


* * 


* 

* HOPE 

* 


L = 17 * 

*X.. .. 


l 



***** OPERAND 

* 

*« 

* 

**************** 

* 


*G3*****« 

L=(A+1) 


IA=1 *. NO 


GENERATE * 

xsaocBOCQoa *. 

SET IA=0 * 


CHART UF. IJXE60 


INSERTING OF THE OPERANDS 
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CHART 




*A2**«* 

HOPE 


B2 *. 
*M LE 5 


B3 *. 

M=6 **. YES 


#*** *B 4* **** * 

* MOD = 

X* (OPL+P) 

* 2 BYTES 


MOVE 
(OPL+P) 
M BYTES 
TO LM 


******* 


M=7 *. YES 


RL = 

(OPL+P) 

1BYTE 


MOD = 

(OPL+P+3) 
2 BYTES 


STORE MOD 
IN LM+3 


X 

* E3# ** ## * 

YES . * * *M GT 20* 


*E4****»* 

0P=RL+1 


*• 


***«F3********* 

HINDAD 

INCIRECT 
ADDRESSING 
IF NECESSARY 


»*»»»** 


#F5***** 

RETURN 



UG. IJXE60 


MOVING OF OPERAND 
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NOTE IN 
BYTE (6) 
PARAMETER 


GENERATE 
L R,OP+X 
USED REGISTER 
(R) 


EXTERN *. YES 


CHART UH. IJXE60 


INDIRECT ADDRESSING 
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CHART 


f ^ 


X 

**B3****« 

OBA=Y+L+ 


G3 *. 
*11 LT 12 * 


UJ. IJXE60 


TRANSFER OF INFORMATION 


29o 


















( 


GET 

1 RECORD 
FOR INPUT 


MOVE 

4 BYTES TO 
END CF 

INPUT BUFFERS 


X=B(0) 

S= 1 

MOVE LAST 4 


CHART UK. IJXE60 


TRANSFER OF INFORMATION 
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CHART 



MOVE 
B BYTES 
FROM X 
TO Y 


*. SKIPPING* 


**E 4******* 
MOVE 

256 BYTES 
FROM X 
TO Y 


«****F4******* 
* B =B-256 


************* 



CL. IJXE60 


MOVING OF INFORMATION 
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IJXF25 


CHART 



to 9 • IJXF25 


GENERAL FLOtoCHART 


293 











«*A1***** 

IJXF25 


SET 

INITIAL 

SCAN 


READ TEXT 
INTO INPUT 
BUFFERS 


COMPL = 
2BUFFL- 
INPT 


**E1********** 
LENGTH= * 

SKIPPAELE * 
LENGTH * 


.* BUFFI * 
.* (INPT)= 

.X*. EGP 


.* BUFFI * 
(INPT)= 
ASS.CODE 


**A3******* 
MOVE X FF 
TO OBUF1 
(OPT1) 


PUT LAST 
TEXT REC. 
ON TXTQUT 


**A5******* 
MOVE X FF 
TO OBUF2 
(CPT2) 


.* BUFFI 
(INPT)= 
GEN.VAR. 
KEY 


D2 *. 

* BUFFI 
(INPT)= 
CONST. 
KEY 


***E2**«***« 
ERROR EXIT 


PUT ASSCODE 
ON TXTOUT 
MEDIUM 


PUT CONST 
OR VARIABLE 
ON SCRATCH 


SKIP TO 
THE NEXT 
KEY 


PUT LAST 
PRETAB REC 
CAi SCRATCH 


***C5 ******* 
SWITCH 
TXT IN AND 
TXT CUT 
MEDIUM 


GC TG 

PRETAB SCAN 


CHART XA. IJXE25 


TEXT SCAN 


/# 
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REC =2 


* A2 * 


**-»**B2*««***** 

* LOAD 

* BUFFL 

* INTC TABTAB 

* FCR PRETAB 


*****C2****** 

* SET BIT2 

* ='JIN 

* TABTAB 

* ENTRY 




***E1*«*««««» 

B U F F1 = 
BUFFER 
AREA 

START ACCR. 


**E2** 
RETURN 


* BUFF2 = * 

* BUFF1+ * 

* BLFFL * 


99B9999B999999*** 


* OBLF1= 
•» BUFF2 + 

* BLFFL 


X 

0BUF2 = 
OBUF1+ 
BUFFL 


m*»Jl*«*»****** 

0BUF3 = * 

OBUF2+ * 

BUFFL 


OBUF4= 

OBUF3+ 

BUFFL 


X 

* A2 * 

CHART X6. IJXF25 INITIAL 1 
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fT'' 


*A1***«« 
TXT IN 


* *B2******-» 
LOAD ADDR 
GF BUFFI 
INTO GR1 


»B3****** 

RA=INPT 

+LENGTH 


LOAD ACCR. 
OF EUFF2 
INTO GR1 


**D1*«#*«** 
READ TEXT 
INTO 
BUFF2 


**C2*«***«* 
* READ TEXT 
INTO 
BUFFI 


C3 *. 

* RA *. 

GT THAN *. NO 
BUFFL 


**D3«****« 

WAIT 

FOR 

TEXT I/O 


*E3«**** 

RETURN 


«*«***« 



CHART XC. IJXF25 



TXTINt WAIT1 
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*ei****» 
COML = 
RECLE- 
□ PT1 


**B4****** 
WAIT FOR 
TEXTOUT 
MEDIUM 


*C 1*** ** 
INPT = 
INPT+3 


**D1****** 

LENGTH 3 

LENGTH- 

3 


El 

•LENGTH * 
GT THAN 
COML 


***F1******** 
LOAD LENGTH 
INTO GRO 


EXCHANGE 

OBUF1 

AND 

OBUF2 

************ 


**D4****** 
LOAD 
ADDRESS 
OF OBUF1 
INTO GR1 


**E2****««* 

LOAD 

COML INTO 
GRO 


IJKMN 
MOVE CODE 
INTO OUTPUT 
* BUFFER * 


PUT OBUF1 
ON TXTOUT 
MEDIUM 


X 

**E4****** 
PUT ASS. 
CODE ON 
TXTOUT 
MEDIUM 


IJKMN 
MOVE CODE 
TO GBUF1 
(OPT1) 


*H1***** 
OPT1 3 
OPT1 + 
LENGTH 


*G3***«* 

INPT = 
INPT+ 
COML 




X 

«H3***** 

LENGTH 3 

LENGTH- 

COML 


*G4***»* 

RETURN 


J1 *. 
* OPT1 
=RECLE 


*J 3***** 
COML 3 
RECLE 


**** 

El 


PUT QBUF1 
ON TXTOUT 
MEDIUM 


*K2****« 

RETURN 


CHART XD. IJXE25 


ASSCODEfOUTASS 
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>A1****< 
CONVAR 



***«*A2*«*** 

* SET 

* SWITCH 

* OFF 


**B2»*«»* 
LPT = 
LENGTH 


LENGTH 
GT THAN 
COPPL 


■»***C3***** 

SET 

SWITCH 


*E3****» 

RETURN 


*F2***««* 

LENGTH= 

LENGTH- 

LPT 


READ TEXT 
INTO INPUT 
BUFFERS 


X 

*J2***«* 
INPT =0 


X 

»*K2* ***** 

COMPL= 

2.BUFFL 


CHART XE. IJXF25 


CONVAR 


[f 

4 ^ 
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( 


*A1*** * 

PRET 


*A2***« 

CCLE = 
BUFFL- 
GPT2 


*ADDR.OF GBUF2* 
* INTO GR1 * 


*C1**** 
DATL = 
DATL- 
COLE 


*«C2**«* 

DATL = 
LPT 


» *C 4** ***** 
PUT OBUF2 
ON SCRATCH 


D2 *. 

* DATL * 
GT THAN 
CCLE 


**D3******* 

LOAD 

COLE INTO 
GRO 


««E2******* 

LOAD 

DATL INTO 
GRO 


***E3******** 
ADDR. OF 
BUFF1(INPO) 
INTO GR1 


•E4***** 

RETURN 


{ 


»»*F2»******* 
ADDR.CF 
BUFFI(INPC) 
INTO GR1 


OBUF2 (OPT2 ) 
INTO GR2 


***G2 *■»*****« 
ADDR.CF 
CBUF2(C PT2) 
INTO GR2 


IJKMN 

MOVE- 

ROUTINE 


IJKMN 

MCVE- 

ROUTINE 


«J2 *** «* 

CPT2 = 
GPT2 + 
DATL 


*J3********** 

INPO= * 

INPO+ * 


K2 *. 
* 0PT2 
=BUFFL 


«K4***** 

RETURN 


CHART XF. IJXF25 


PRET»PUTPRE 


299 
































*A1******** 
SKIPIN 


«*B1*«**» 
INPT = 
INPT+ 
LENGTH 


Cl *. 

* INPT * 
GT THAN 
BUFFL 


**#*C2***»* 
* RETURN 


IJKMN 

MOVE 

BUFF2 TO 


*««F1********** 
TXTIN * 

*-#—*-*—*—*—*—« 
READ TEXT * 

INTO INPUT * 

BUFFER2 


««F2* 
INPT= 
INPT- 
BUFFL 


•********** 


CHART XG. IJXF25 SKIPIN 


3oo 












( 



_X* 

A2 *. 

.* BUFFI *. 

* (INPT)= *. YES 

X FF .*. 

. .X* 

*A3********** 

PRETEND * 

*FINISH * *... 






PRtTAB * 

X 





SCAN * 


* XH * 





*XP * 

* El* 


*NC 



* Bl* 


( 


SET 

INITIAL 

SCAN 


*D1****» 
COMPL = 
2BUFFL- 
INPT 




HAIT FOR 
SCRATCH 
MECIUM 


X 



B2 *. 

«* 

***B3******* 

*•* 


***B4********** 



* BUFFI *. 

* 

GENVAR 

* 

* 

SKIPRE * 

****** 

«** 

GEN.VAR .*. 

..X* 

CONVERT 

* _ 

_X* 

SKIP TO *... 

.X* D1 * 


• * 

* 

GENERATEC 

« 

* 

THE NEXT * 

* * 


*• • * 

* 

VARIABLES 

* 

* 

* 

* *** 


* • . * 



* » «■ 

* * 

*************** 



*NC 





X 



X 








C2* *"*. 

• * 

•••C3******* 

*** 





* BUFFI *. 


CONSTA 






(INPT}= *. YES 

rrfN^T. .*_ 

x :~ 

PUT CONST. 





* *- 



ON TXT IN 






*• . * 









** 


■*** 





*NC 


* ERROR EXIT * 


X 

«*«F1******* 

LENGTH= 
CONTENTS 
CF BUFF1+I 
(INPT) 


c 

CHART XH. IJXF25 PRETAB SCAN 


3ol 

































****«*««* 

* INITIAL 2 * 

*■»■#•»**•«****■»*** 


* * ** *B1 ***«**«*«* 

* BUFF1= * 

* TABLE AREA * 

* START. * 

* ACCRESS * 


««««««« 

* BUFF2 = 

* BUFF1+ 

* EUFFL 


LOAD 

* RECORD * 

* LENGTH * 

* FOR DSTAB * 

* * 
■»**•»***#*«*****#* 


*****D1****** 

* CEUF1 = 

* BUFF2+8+ 

* BLFFL 


**D2*«***«* 

* NOTE FCR * 
TXT IN 
MEDIUM 


*«««*E1***** 

* CBLF2 = 

* CBUF1+ 

* BUFFL 


«****«««««««««*** 


*****F1********** 

* OBUF 3 = * 

* OBLF2+ * 

* 8+EUFFL * 


#■#**■***•**■»* 


SET BIT 
2 INTABTAB 
ENTRY FCR 
PRETAB 


*«**G1«***** 

0BLF4= 

OBUF3+B+ 

8UFFL 


***G2«****-»*** 
RETURN * 


*#*«*•»■»«■*#•**■»*##* 


/O 


CHART XU IJXF25 


INITIAL 2 


3o2 


















( 


I JKMN 

MOVE EUFF2 
TO BUFFI 


**D1»#♦**** 
LOAD ADDR 
OF BUFFI 
INTO R1 


LOAD ADDR 
OF BUFF2 
INTO GR1 


LOAD ADOR 
OF TABTAB 
ENTRY 


INPT = 
INPT- 
BUFFL 


**AA***** 
WAIT2 


»B4****** 
R A = IN P T 
+LENGTH 


C4 *. 

* RA * 
GT THAN 
BUFFL 


•» «D4****** 
WAIT FDR 
SCRATCH 
MEDIUM 


*E4***»* 

RETURN 





RETURN 


c 

CHART XJ. IJXF25 GETPRE.WAIT2 


3o3 





















■V... 


*A1****» 

GENVAR 


*****B1***** 

* INPT = 

* INPT+3 


A3 *. 

* CHAR. *. 

STRING *. YES 


**A4******* 

MOVE 

LENGTH OG 
STRING TO 
DSTAB+2 


>******* 


*C1 ****** 
LENGTH* 
LENGTH 
-3 


* 01 * 
CLEAR 
DSTAB 
AREA 


**E1******* 
MOVE INT. 
NAME TO 
DSTAB 


*****F1******* 

* MOVE BLOCK 

* AND LEVEL 

* TO DSTAB 

* +4 


G1 *. 
*DELETE 
BIT 


HI *. 
.♦STATIC * 
VARIABLE 


»**H2****» 

SET 

STATIC 

BIT 


B3 *. 

* LABEL *. 

VARIAB *. YES 




»****B4********** 

* MOVE LENGTH * 

* OF VARIABLE * 
X* TO DSTAB *. 

* +2 * 

***************** 


X 

**B5******* 

OPT 

PUT DSTAB 
ENTRY DN 
TXTCUT 


C3 *. 

* FIXED *. 

BINARY *. YES 


*****04******* 

* MOVE 

* LENGTH 

* OF POINTER 

* TO DSTAB+2 

************** 


X 

«E3***** 
INPT = 
INPT+8 


«F3*«***** 

LENGTH 

=LENGTH-8 


G3 *. 

♦ LENGTH * 
GT THAN 

0 


*G4***«« 

RETURN 


CHART XK. IJXF25 GENVAR 


/if 
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( 

* RTESTIN 



c 

CHART XL. IJXF25 RTESTIN 
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MOVE 

DSTA ENTRY 
TO QBUF1 
(OPT1) 


*C1***»* 
OPT1 = 
0PT1+6 


*A2*«**« 

DSPUT 


**B2****** 

PUT 

GBUF1 ON 
TXTOUT 


I JMN 
MOVE 
0BUF2 
TG OBUFl 


* OPT1 * 
GT THAN 
DUFFL 


RETURN 


OPT1 = 
GPT1 - 
BUFF L 


»#E2****** 
WAIT FOR 
TXTOUT 
MEDIUM 


**F2****» 

RECN= 

RECN+1 



CHART XM. IJXF25 


OPT,DSPUT 
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* B1*** * 
INPT = 
INPT+6 


*B3-***** 
COLE = 
BUFFL- 
OPT 2 


* LPT * 
GT THAN 
COLE 


LOAD COLE 
INTO 
GRO 


LENGTH 
GT THAN 
COMPL 


#*E1»**** 
LPT = 
COMP L 


*D2***«* 
LPT = 
LENGTH 


PUT CONST. 
ON TXTIN 
MEDIUM 


«*G1**» *** 
LENGTH* 
LENGTH- 
CCMPL 


PUT CONST 
QN TXT IN 
MEDIUM 


**F2*«*** 
INPT = 
INPT + 
LENGTH 


TEST 

INPUT 

POINTER 


*H2* 
RETURN 


LOAD LPT 
INTO 
GRO 


IJKMN 

MOVE CONST 
INTORBUF1 
* (OPT2) 


I JKMN 

MOVE CONST 
INTO OBUF2 
* (CPT 2) 


X 

**F3*»** 
OPT2 = 
OPT2 + 
LPT 


L PT = 
LPT- 
COLE 


I NPO = 
INPO+ 
COLE 


PUT CONST. 
ON TXTIN 
MEDIUM 


PUT CONST. 
CN TXTIN 
MEDIUM 


*H3****» 

RETURN 


CHART XN. IJXF25 


CCNSTA * OUT 
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*A1****« 

PLTCO 


*A2***«* 

SKIPRE 


*A3****«* 

PRETEND 


**B1****** 
WAIT FOR 
TXTIN 
MEDIUM 


*B2***«* 
I NPT = 
INPT+ 
LENGTH 


**83*******-*** 
SET END * 

OF CONST. * 
KEY * 


**C1******* 
EXCHANGE 
ADDRESSES 
OF 0EUF3 
AND 0EUF4 


*************** 


TEST 

INPUT 

POINTER 


PUT LAST 
CONST.REC. 
ON TXTIN 


***D1******* 
LG AD 
ACER.OF 
OBUF3 INTO 
GR1 


**E1******* 

PUT OBUF3 
ON TXTIN 
MEDIUM 


** 02 ***** 

RETURN 


*«D3»****** 

* POINT * 
FOR 
TXTIN 
MEDIUM 


***E3***** 

RETURN 


***FI****** 

RETURN 

*********** 


CHART XO. IJXF25 


PUTCO»SKIPREtPRETEND 
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( 


SET 

INITIAL 

scan 


READ IN 
SYMTA8 

FROM SCRATCH 


( 


D1 *. 
* BUFFI 
( INPT) = 
XFFFF 


INCREASE 

INPUT 

POINTER 


BUFF1+4 
(INPT)= 
X OOOO 


REWIND 

TXTOUT 

MEDIUM 


PUT LAST 
DSTAB 
ENTRIES 


X 

»*F3******» 

PUTNV 

PUT DSTAB 
ON 

SCRATCH 


CHART XP. IJXF25 SYMTAB SCAN 
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♦♦**A1***»***** 

•♦**A2*******»* 

♦ ♦♦♦A4****-*- 

* * 


♦ 

* INITIAL3 * 

* GET SYM * 

* INCR 




\ 

««*««***«««***« 



♦♦♦**B1****** 

**** 

** 

♦.♦B2****** 

**** 

**** 

♦B4****** 

* BULE = 



LOAD REL. 



INPT = 

* 240 



TABTAB 



INPT+20 

* 

* 

* 

ADDRESS 

» 

* 


* 

* 

* 

INTO GR2 


* 


************* 

**** 

** 

*********** 

**«* 

**** 

********* 


X 


. *. 



*****C1***** 


C2 *. 

♦♦C3******* 

C 4 *. 

* BUFF2= 


.* REC= *. 


.* INPT * 

* BUFF1+ 


.* 2 *. NO 

* IJKMN * 

.* GE BULE 

* BULE 


* , 

-X* MOVE BUFF2 * 

* « 

* 

* 

*e • * 

* TO BUFFI * 

* • 

xt 

a- 



* • * * 








» YES 


* YES 

X 


X 

X 

X 

***♦♦01***** 

* * x * * 



**04****-**- 

* INPT=0 

* 

* LOAD * 

* INPT = * 

* WAIT 


* 

* A(BUFFI) * 

* INPT- * 

* FOR 



* INTO GR1 * 

* BULE * 

* SCRATCH 

* 

* 

* * 

* * 

* INPUT 


**E1******* 

SET BIT2 
IN TABTAB 
ENTRY FOR 
SYM TAB =0 


X 

*E2****# 
LOAD 2 
INTO 
GRO 


X 

«*E3#****» 

LOAD 
A(BUFF21 
INTO GR1 


X 

»E4***** 
REC = 1 


X 

♦FI***** 
R EC =2 


♦Gl***** 

RETURN 


*F2* ***** 
READ 
SYMTAN 
FROM 
SCRATCH 


X 

**F3****» 
LOAD 1 
INTO 
GRO 


*G2***«* 

RETURN 


READ NEXT 
PRETAB 
RECORD 


****G4***** 
* RETURN 


CHART XQ. IJXF25 


INITIAL3.6ETSYM, INCR 
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CHART 


*A1 *******-*-* 
ALLOC *. 


CONTROLLED. 


G2 *. 

* MINOR *. 
STRUCT. « 


H2 *. 

.« ELEM. *. 

OF STRUCT *. YES X 


J2 *. 
* LABEL 
CONST. 


.X* RETURN 


BUILT A 
DSTAB 
ENTRY 


XR. IJXF25 


ALLOC 
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MOVE INT. 
NAME TO 
DSTAE 


MOVE BLOCK * 

AND LEVEL *X. 

TC DSTAE +4 * 


SET 

STATIC BIT 
TO DSTAB +5 


LENGTH= 
CONTENTS 
OF BUFF 1+4 
(INPT ) 


L ENGTH = 
LENGTH * 
NUMBER OF 
ELEMENTS 


LENGTH = 
CONTENTS 
OF BUFF 1+18 
(INPT) 


LENGTH= 
CONTENTS 
OF BUFF 1+8 
(INPT) 


SET ARRAY 
BIT INTO 
DSTAB +5 


LENGTH = 

4. NUMBER 
OF ELEMENTS 


SET 

PARAMETER 

BITS 


SET STRUCT 
BIT AND 
LEFTHANG 


.X* LENGTH = 4 


* LENGTH = 
.X* CONTENTS 

* OF BUFF 1+12 

* (INPT) 


LENGTH = 
CONTENTS 
OF BUFF 1+8 
(INPT) 


MOVE 

LENGTH TO 
DSTAB +2 


PUT DSTAB 
ENTRY ON 
TXTOUT 


LENGTH = 
CONTENTS 
OF BUFF 1+4 
(INPT) 


LENGTH = 
CONTENTS 
OF BUFF 1+18 
(INPT) 


CHART XS. IJXF25 


ALLVAR 
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( 


«A1***** 

CSENC 


«**B1 *******« 

MOVE END 
CF CSTAB 
KEY TO 
CeUFl(OPTl) 


PUT LAST 
DSTAB REC. 
ON TXTOUT 


«D1***** 

RETURN 


*A2****« 

PUTNV 


**B2*»**«*« 

SET BIT 2 
INTABTA8 
ENTRY=0 


LOAD 
RECORD 
LENGTH 
IN TABTAB 


LOAD ADDR. 
OF BUFFERI 
INTO GR1 


**E2*«****» 

* GET DSTAB * 
RECORD FROM 
TXTOUT 
MEDIUM 


***.F2»*«***** 

LOAD ADDRESS 
CF BUFFER2 
INTO GRO 


***G2*»*»««* 

LOAD ADDR. 
OF BUFFERI 
INTO GR1 


»**H2*»***** 
LOAD REL. 
TABTAB 
ADDRESS 
INTO GR2 


•PUT DSTAB/ 
RECORD ON 
SCRATCH 


**K2**»*« 

RECN= 

RECN-1 


.•NO 
K3 •. 
* RECN 
=0 


*K4******** 

RETURN 


c 

CHART XT. IJXF25 OSENO. PUTNV 
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V^- 


B3 *. 
* BUFFI 
(INPT) = 
X FFFF 


READ CONTAB 
FROM 
TXTIN 


SKIP TO 
THE NEXT 
CONSTANT 


D1 *. 

.* BUFFI 
( INPT) = 
X FFFF 


El *. 
.♦OP TIM. 
CONST. 


SKIP TO 
THE NEXT 
CONSTANT 


PUT CONST. 
ON SCRATCH 
MEDIUM 


PUT CONST. 
ON SCRATCH 
MEDIUM 


* _X* READ CONTAB 

* * FROM 

* SCRATCH 


..X* READ CONTAB 
. * FROM 

. * TXTIN 


G3 *. 
* BUFFI 
(INPT) = 
XFFFF 


HI *. 
* BUFFI 
(INPT) = 
X FFFF 


SKIP TO 
THE NEXT 
CONSTANT 


K1 *. 
.♦ADDRESS*. 

* CONST. *. YES 


PUT CONST. 
ON SCRATCH 
MEDIUM 


* SKIP TO * 

* THE NEXT * 

* CONSTANT * 
**«***«-»*•***»*** 


♦4-BYTE 
DC X 
CONST 


PUT CONST. 
ON SCRATCH 
MEDIUM 




CHART XU. 


IJXF25 


SORTING OF CONSTANTS 
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( 

CHART XV. IJXF25 SORTING OF CONSTANTS 
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V. 


««**A3***»** 

GECON 


BUFF2 = 
BUFF 1 + 
BLFFL 


SET BIT 2 
IN TABTAB 
=C 


***E1******* 
LOAD REC. 
LENGTH 
FOR CONTAB 


POINT 
TO BEGIN 
OF CONST. 
GN TXT IN 


* READ CONST 

* FROM TXTIN 

* MEDIUM 


IJKMN 

MOVE BUFF2 
TO BUFFI 


X 

*D3***»* 
INPT = 
INPT— 
8UFFL 


««*•******•*•*■*** 


**E3******* 
•READ CONST 
INTO 
BUFF2 


•READ CONST 
* INTO 
BUFFI 


**F1***»* 

RETURN 


***F2****»«« 

RETURN 


»F3***** 

RETURN 


CHART XM. IJXF25 


INITIAL4»GETIN »GECON 


/fT 


316 






















***A3‘ 


B1 *. 
•DELETE 
BIT 


•*C1•**•*•* 
LPT = 

LENGTH OF 
CONSTANT 
+ 5 


IJKMN 

MOVE CONST. 
TO OEUF1 
* (OPT) 


X 

•El•***• 
OPT1 = 
OPT1 + 
LPT 


FI *- 
* OPT1 * 
GT THAN 
BL'FFL 


X 

*G1***** 
SWITCH 
= 1 


IJKMN 

MOVE OBLF2 
TO OEUF1 


*K1***** 
OPT1 = 
OPTl — 
BL'FFL 


»*«B3******* 
LGAC ADDR. 
OF OBUFF2 
INTO GRG 




LOAD ADDR. 
OF OBUFF1 
INTO GR1 


**D3 
LOAD REL 
TABTAB 
ADDRESS 


X 

**E3******* 

PUT OBUF1 


*********** 




F3 

♦SWITCH *. 

=1 *. NC 


*«F4«****** 

* PUT OBUF2 * 
ON SCRATCH 


**G3****** 
WAIT FOR 
SCRATCH 
MEDIUM 


•**K2«**** 

RETURN 


CHART XX. IJXF25 


OUTPUT,COUT 
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J<r 

/ 

l.; 

V. 


I NPT = 

INPT + 
LENGTH OF 
CONSTANT 


Cl *. 
.* INPT « 
GT THAN 
BUFFL-20 


****C2***** 
* RETURN 


*A3***»* 

CCNEND 


X 

****B3********« 
MOVE 
END OF 
CONTAB KEY 
TO OBUF1(OPT) 


««D1******* 
•WAITER FOR 
TXTIN 
MEDIUM 


El *. 

* INPT * 
GT THAN 
8LFFL 


D3 *. 

* OPT1 • 
GT THAN 
BUFFL 


*E3****« 
SWITCH 
= 1 


•* 04 ***** 

SWITCH 

=2 


PUT LAST 
RECORDS ON 
SCRATCH 


READ NEXT 
REC.FROM 
TXTIN 


•F4***** 

RETURN 


•HI««*** 
RETURN 



CHART XY. IJXF25 SKIP,CONEND 


318 























( 


FILL UP 
WORK 
AREA 


LCCN 
GT THAN 
WORK 

*.AREA .* 


SET 

SWITCH 

OFF 


LCQN = 
LCON- 
5BUFFL 


INPT 
GT THAN 
4BUFFL 


MOVE END 
OF EQUATES 
TO OBUF 
(OPT) 


PUT TABLE 
SPACE ON 
TXTIN 


PUT LAST 
EQUATES 
ON TXTOUT 


PUT LAST 
CONSTANTS 
ON TXTIN 


INPT1= 
INPT1+5+ 
LENGTH OF 
CONSTANT 


.X* REST FOR 

* OPTIM, 

* BLOCK 


SAVE 

INPUT 

POINTERS 


*ECUSCR* 


* 

EOPH 



CHART YA• IJXF35 


OPTIMIZATION OF CONSTANTS 
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*«**■-*** 


T SC = 

TABLE AREA 
STARTING 
ADDRESS 


TS1 = 
TSC+ 
BUFFL 


T S4 = 
TSC + 
4*BUFFL 


* OBUF = 

* TSO+ 

* 5* BUFFL 

**************** 


*F1********** 
RE POl=0 * 


***G1****** 
REP02 =0 


NOTE FCR 
TXTIM 
MEDIUM 


****B2********* 

SET BIT2 
IN TABTAB 
ENTRIES 
=0 


LCCN = 
LENGTH 
□F CCNTAB 


**D2****« 

RETURN 


**A3********* 


«*********•«** 


LOAD ADDR. 
OF TSI 
INTO GR1 




**««*C4**** 


LOAD ADDR. 
OF TSO 
INTO GR1 


LOAD 5 
INTO GRG 


*****E3********** 

* LOAD REL. * 

*- TABTAB * 

* AODRESS * 

* INTO GR2 * 

*#******»**»»»»*• 


GET CONTAB 
FROM 
SCRATCH 


*G3******* 

RETURN 


X 

*****H1********** 
* INPT1=0 * 




X 

*****K1********** 

* SET SWITCH * 

* OFF *, 



CHART YB. IJXF35 


INITIAL,FI LL 
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( 


* A1 * * * * 
SAVE 


*A2*«« « 

TEST 


INPT2 = 
INPT1+5+ 
LENGTH OF 
CONST.(INPT1) 


TEST 

CGNST.CN 

WHICH 

INPT1 POINTS 


STORE 
INPT2 TO 
SAVE 1 


*[)!***** 

RETURN 


COMPARE 

ADDRESS 

CONSTANTS 


COMPARE 
ALL CONST. 
LESS OR EQU 8 


COMPARE 
ALL CONST. 
LESS OR EQU4 


COMPARE 
ALL CONST. 
LESS OR EQU2 


COMPARE 
CONST. WITH 
SAME LENGTH 


***«G4*•••**•** 

* * 
* RETURN * 

*************** 


c 

CHART YC. IJXF35 SAVE.TEST 
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* CONST A *. NO 
EQUALS .*... 
*. CONST B .* 


■»#«*-»B3********** 

* SET * 

* MODIFIER * 

* TO ZERO * 


COUNT = 
LENGTH OF 
CONST+5 


INPT2 = 
INPT2+ 
LENGTH 
OF CONST. 


POINTS 
INPT2 TO 
. FFFF 


POINTS 
INP72 TO 
. OPTIM. 

*.CONST.* 


COUNT = 
CGUNT+5 
+LENGTH 
OF CONST. 


INPT2= 
INPT2+5 
♦LENGTH 
OF CONST 


POINTS 
INPT2 TO 
. FFFF 


POINTS 
INPT2 TO 
. INT.NAME 
*. =0 .* 


POINTS * 
INPT2 TO 
.INT.NAME .* 


STORE 
COUNT-3 
IN COMP. 
INSTRUCT. 


CHART YD. IJXF35 


NOTOPT 
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CHART 


*A1***«* 

ADCON 


TEST CONST. 
TO WHICH 
INPT2 
POINTS 


TSO 

(INPT2) = 
- X FFFF 


♦B3***** 

RETURN 


INPT2 
GT THAN 
4BUFFL 


* TSC+2 
(7,INPT1)= 
*. TSO+2 
*(INPT2)* 


INPT2= 
INPT2+5+ 
LENGTH OF 
CONSTANT 


*....X* B2 


E2 

NAME 


«*F2****«* 
MODIF =0 


«*#F3******* 

EQU 

#-*-*-*-*—*- 
PUT EQUATE 
ON TXTOUT 
MEDIUM 


YE. IJXF35 ADCON 
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*A1**««* 

0PTIM8 


TEST CONST. 
TO WHICH 
INPT2 POINTS 


A3 *-X*. 


A3 *. 
5-BYTE 


B3 *. 
*7—BYTE 


*»***A4********** 

* INPO= 

* INPT1+3 

* 

* 

* 

it 


*•*•84********* • 


***A5********** 


***************** 


*****65********** 


***************** 


*£** 

G4* 


.* TSO 
..X*. ( INPT2} = 

. *. XFFFF 


**a*C2********* 

* RETURN * 


* INPT2 
GT THAN 
*. 4BCFFL 


Cl * 
• *** 


****£ 2 ******** * 

INPT2= 
INPT2+5+ 
LENGTH OF 
CONSTANT 


i***E3********** 

EQU * 

•*—*—*—*—*—*—*—* 
PUT EQUATES * 

ON TXT OUT * 

MEDIUM * 


* TSO+5 
(8»INPTli = 
*. TSO+5 . 
*<INPT2)* 


****«G2********** 


•***F3********** 
M0DIF=0 * 


**•• 

* * 

* E2 * 

* * 
**** 


*a***G3********** 




****H3********** 


***J3********** 




*****K2 ********** 


TSO+5 
(L *INPO) = 
. TSO+5 
*( INPT2)* 


UPDATE 
INPO AND 
MODI F 


CHART YF. IJXF35 


OPTIM 8 


^4 
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»A1***** 

OPTIMA 


**A3********* 
MOD * 


***»*A5* * * 




TEST ALL 
CONST.ON 
WHICH POINTS 
INPT2 


.* TSO 
..X*. ( INPT21 = 

*. XFFFF 


••*• 02 ********* 

* * 
* RETURN * 




«****C 4********** 


***»C5*** ** 
RETURN 


INPT2 
GT THAN 
4 BUFFL 


* Cl * 

* * 
**** 


El *. 

**< 

•■**£2 ******** 

* 

*****E3»********* 
* EQU * 

* DELETE 


INPT2= 

•* 


BIT .*- 

....X* 

INPT2+5+ 

*x. 

...» PUT EQUATES * 



LENGTH OF 


* ON TXTOUT * 

*’*N0 

**« 

CONSTANT 

X 


* MEDIUM * 

X 


„.* E2 * 
NC 


.* TSO+5 
*X*. (4 *INPT1) 

*. =TS0+5 
*(INPT2J * 


i ***F3*»***»***• 
MODIF=0 


**G3* 

MOD IF 




»****H2********** 


***H3********** 


****«J3**••*•*••* 


* TSO+5 
(LiINPO)= 
*.TSO+5 (L,. 
* INPT2) . * 


G5 *. 
MODI F 


UPDATE 
INPO AND 
MGDIF 


CHART YG« 


IJXF35 


0PTIM4, MOO 
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****A1***** 

0PTIM2 


TEST CONST. 
ON WHICH 
POINTS 
INPT2 


TSO 

(INPT2) = 
. XFFFF 


**C2 ****« 

RETURN 


INPT2 
GT THAN 
ABUFFL 


Cl 

**«* 


«• * * * 

E2 * 


I NPT2 = 

INPT2+5+ 
LENGTH OF 
CONST. 


* TSQ + 5 

(2 >INPT1) = 
*. TSO+5(2 t - 
*1NPT2) . * 


PUT EQUATE 
ON TXTOUT 
MEDIUM 


*F3* 
M0DIF=0 


* TSO+5 
(ItINPT1)* 
*. TSO+5(1» 
*1NPT2) . * 


TSO + 6 
(INPT1) = 
.TSO+5(1, 
»INPT2). 


CHART YH. IJXF35 OPTIM 2 


/ff~" 
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.* T SC 
..X*. ( INPT2) = 

*. XFFFF 


INPT2 
GT THAN 
4BUFFL 


**C2»**** 

RETURN 


INPT2 = 

INPT2+5+ 
LENGTH OF 
CONSTANT 


*....X* B1 


< 


» TSG+3 
(2*INPT1)= 
*. T SO+3 
*( INPT2) •» 


L =CONTENTS 
OF TSC+3 
(2,INPT1J 


TSO+5 
(L,INP T1 = 

. TSC+5 . 
*(INPT2)* 


*H1* 

MOCIF =0 


PUT EQUATES 
ON TXTOUT 
MECIUM 


c 

CHART YI. IJXF35 OPTIM 
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SET CELETE 
EIT INTO 
TSG+2 
(INPT2) 


HOVE TSO 
(2,INPT2) 
TO QBLF 
( GPT) 


* EQUAOUT * 
****«»***«***** 


MOVE 

TSO(2 »INPT1) 
TO OEUF+2 
(OPT) 


OPT = 
OPT- 
BUFFL 


MOVE 

MODIFIER 
TO G0UF+4 
(OPT) 


* IJKMN 
MOVE EQUATES 
*GT THAN FUFF 
* TO OBUF * 


**F3****» 

RETURN 


OPT 

GT THAN 
BUFFL 


PUT CBUF1 
ON TXT CUT 
MEDIUM 


*H1***«* 

RETURN 


CHART YJ« IJXF35 


EQU* EQUOUT 
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** *A3****» 

EQUSCR 


LOAD 

STA INTO 
GR1 


*»D1#**«** 

PUT CONST. 
ON 

TXTIN 


STA = 
STA + 
BUFFI 


STA *. NO 
GR THAN 
TS4 .* 


REWIND 

TXTOUT 

MEDIUM 


SET BIT2 
IN TABTAB 
AND RECORD 
LENGTH 


READ 

EQUATES 

FROM 

TXTOUT 


PUT EQUATES 
ON 

SCRATCH 


*********** 


*H1***** 

RETURN 


*H3***«* 

RETURN 


CHART YK. IJXF35 


CONOUTt EQUSCR 
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BUFFI 
(I N PT ) = 
XFFFF 


POINT 

TXTIN 

MEDIUM 


*»«**B4*tt* 


SKIP TO 
THE NEXT 
CONSTANT 


* **C1***** 
INPT=C 


*D1«**** 
OPT =C 


L = 5 + 

LENGTH OF 
CONSTANT 


MOVE BUFFI 
(L.INPT) 
TO CBUF1 
(OPT) 


PUT CONST. 
ON SCRATCH 
MEDIUM 


INPT 
GT THAN 
BUFFL 


**** 05 ***** 

RETURN 


SET BIT2 
IN TABTAB 
=0 


LOAD 
RECORD 
LENGTH 
IN TABTA8 


*G1****» 

REC = 2 


MOVE 

XFFFF TO 
0BUF1 
(OPT) 

*********** 


**G3****** 

RETURN 


IJKMN 

MOVE BUFF2 
TO BUFFI 


*F4***«* 
REC = 1 


I NPT = 
I NPT - 
BUFFL 


READ CGNST. 
FROM TXTIN 
MEDIUM 


READ CONST. 
FROM TXTIN 
MEDIUM 


CHART YL. IJXF35 CONSCRt SKIP 
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**A1 


CHART 


MOVE 

0BUF2 

TC 

OBUF1 


OPT = 
CPT- 
BUFFL 


*E1«*** 

PL'T 


WRITE 
OBUF i 
ON SCRATCH 


OPT 

GT THAN 
BUFF L 


WRITE 
OBUF 2 

ON SCRATCH 


**H2****» 

RETURN 


YM. IJXF35 


PUTOUT t PUT 
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/IT" 


B1 *. 
REC = 2 


LOAD ADDR 
OF TSO 
INTO GR1 


LOAD 
ADDR.OF 
TS1 INTO 
GR 1 


READ CONST 
FROM TXT IN 
INTO 
* TSO 


READ CONT. 
FROM TXT IN 
INTO 
* TS1 


*E1******** 
RETURN 


CHART YN. IJXF35 


GETCON 
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IJXF75 


X* 


CHART 


ALLOCATE 
STORAGE 
FCR CONST. 

IN THE CCNTAB 


ALLOCATE 
STORAGE 
FOR CHAR. 
STRING 
CARTAB 


ALLOCATE 
STORAGE 
FCR 8-BYTE 
VARIABLES 


ALLOCATE 
STORAGE FOR 
4-BYTE 
VARIABLES 


ALLOCATE 
STGRAGE FCR 
2-BYTE 
VARIABLES 


****G2<mm»*«** 
ALLOCATE 
STORAGE 
FCR VARIABL. 
WITHOUT 
BOUNDARY 


ALLOCATE 

STORAGE 

FCR 

ARRAYS 


ALLOCATE 

STORAGE 

FCR 

STRUCTURES 


**K2* 
EOPH 


YO. IJXF75 


STORAGE ALLOCATION 
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CHART 



*A2****« 
IJXF75 


G-ET CGNTAB 
FROM 
SCRATCH 


MAKE OFFTAB 
ENTRY FOR 
CARTAB 


PUT OFFSET 
ENTRY CN 
TXTCUT 
*•«********« 


X 

***F2******** 
SKI PC 

SKIP TO THE 
NEXT 

CONSTANT 


ZA. IJXF75 


ALLOCATION OF CONSTANTS 
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( 


**A1******* 
INITIAL 1 


«**A2***«* 

CCNTAE 


INPUT 
POINTER 
INPT = 0 


MOVE 
BUFF 2 
TO BUFF 


OUTPUT 
POINTER 
OPT = 0 


LOCATIGN 
COUNTER 
LCST = 0 


READ CCNTAB 
INTO BUFF I 
AND 

* BUFF 2 * 


**D2* »*** 

RETURN 


INPT = 
INPT = 
BUFFL 


READ CONTAB 
INTO 
BUFF 2 


( 


**H1******* 
NUMBER OF 
DESIRED 
CONTAB 
RECORDS 
REC = 2 



RETURN 



CHART ZB. IJXF75 


INITIALl* CONTAB 
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/T' ■ 

Q 


**A1«**»** 
OFFTAE 1 


*A2«**«* 

ALIGN 


CLEAR 

OFFSET 

ENTRY 

OFFENT 


DCA *. YES 
OR DCV 
CONST .« 


«*«**B4********** 

* MOVE * 

X* LCST TO *. 

* LOCQ+2 * 




TEST LOC. 
COUNT. FOR 
ALIGNMENT 


RESTORE 
LOCO TO 
LCST 


X 

*D5****» 

RETURN 


SET STATIC 
BIT IN 
OFF ENT + 4 


«E3***** 
AL = 8 


*....X* B4 


BUFFI 
( INPT) = 
X CCCC 


PUT OFFSET 
ON TXTOUT 
MEDIUM 


*«**G3***'** 
AL = 2 


DETERMINE 
LENGTH TO 
BE INCREAS. 


LOCO = 
LOCO + 
LENGTH OF 
CONSTANT 


TEST IF 
LOCO GT 
THAN 64K 


RESTORE 
LOCC TO 
LCST 


****K3******** 

RETURN 

*■»*■*•■**«■■#■•**■**** 


CHART ZC. IJXF75 


OFF TAB 1 
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< 


AND CUT 
LAST 3BITS 
OF LOCO 
WITH COO 


AND OUT 
LAST 2BITS 
OF LOCO 


AND OUT 
LAST EIT 
OF LOCO 
WITH 0 


RETURN *X. 


* LENGTH = 

* CONTENTS CF 
*BUFFI+3 (INPT) 


****H2********* 


CHARI ZO. IJXF75 


LOCAL, LI NCR 
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MOVE 

CFFENT (5) 
TO OEUF1 
(OPT) 


OPT 

GT TH4N 
BUFFL 


*D2«**** 

RETURN 


MOVE 

CBUF2 TO 
OBUF1 


OPT = 
OPT - 
BUFFL 


CHART ZE. 1JXF75 OFFOUT 
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< 


*A1««*«* 

5KIPC 


L2 = 

5 + CONTENTS 
GF BUFF1+3 
(2,INPT) 


INPT 
GT THAN 
BUFFL 


*C3****# 

RETURN 


*D2***** * 
REC = 1 


GET CCNTAB 
FROM 
SCRATCH 


( 


c 

CHART ZF. IJXF75 SKIPC 
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1 


*A1***** 
CARTAE 


MOVE NAME 
CF CARTAB 
TO OFFENT 


*****C2******* 

* SET STATIC 

* BIT IN 

* OFFENT+4 


LOCO *. YES 
GT THAN 
64K .* 


*C3***»* 

RETURN 


*B5**«* 

DIAPH. 


********* 


MOVE 
LCST TC 
GFFENT+2 


PUT OFFSET 
ON TXTGUT 
MEDIUM 


MOVE LCST 
TO 

LOCO + 2 
*********** 


*****G2****«**** 

* LOCC = 

* LOCO + 

* LENGTH OF 

* CARTAB 


TEST IF 
LOCC GT 
THAN 64K 


*K2****« 

RETURN 





CHART ZG. IJXF75 


CARTAB f RERRTEST 
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< 


PICK UP 
HEAC OF 
DSTAB 


< 


***»«D2***** 


El 

TYPE = 7 
* * *YES 


*NC 

I.X* K1 


PUT OUT * 

OFFSET * 

TABLE ENTRY * 


SKIP TO *X.. 

THE NEXT * 

VARIABLE * 


K1 *. 

PARAM 


•**C5**** 

EOPH 


X* PUT LAST *. 

* OFFSETS * 

* ON TXTOUT * 
***************** 


*. YES .* *. YES 

STRUCT. .*.X*. TYPE = 1 .*.X* LIGNE 

.* *. .* * LOCO ACCORD 


PUT LOC. 
COUNTERS 
ON SCRATCH 


***E5***** 
AL = 0 


*NO 

I.X* HI 


*NO 

I.X* HI 


*NO 

I.X* HI 


*. YES .* *. YES 

4-BYTE .*.X*. TYPE = 5 .*.... 

.VARIABLE -* *- -* 


I.X* HI * 


TO LEFTHANG * 


*****F4********* 


*»»**H4********* 
.X* AL = 4 


*NC *NO 

I I.X* HI * 

• * * 

X **** 

J2**‘*. J 3" **. *****J4***** 

.* *. .* *. * 

*. YES .* *. YES * 

2-BYTE .*.X*. TYPE = 4 .*.X* AL = 2 

.VARIABLE .* *. .* * 


*NO 

X 


CHART ZH. IJXF75 


ALLOCATION OF VARIABLES 
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«A1****** 

INITIAL 


MOVE LENGTH 
OF FIXED 
AREA TO 
TS 


M VC 

TS + 2 (126), 
TS 


X 

*D1***** 
RETURN 


SET BIT 2 
IN TABTAB 
ENTRY 
TO ZERG 


*D2 ****** 

REC = 2 


READ DSTAB 
INTO BUFFI 
AND 

* BUFF2 


*D3***«* 

RETURN 


INPT = 
INPT - 
BUFFL 


***D4*********** 


READ 

DSTAB 

INTO 

BUFF2 


GET 

DSTAB FROM 
SCRATCH 


*F2***«* 

RETURN 


CHART ZI. IJXF75 


INITIAL* PICK* DST AB 
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< 


* **A 1 *** •»* 

OFFSET 


***A2*«»** 

GETLDC 


MOVE 
LCST TO 
LOCO + 2 


( 


GET LOC. 
COUNT IN 
LOCO 


♦ MOVE 
♦BUFFI ( 2»INPT) 

♦ TQ 

♦ OFFENT 


MOVE LOCO+2 
TO 

OFFENT+2 (2) 


MOVE 

BLOCKNUMB . 
TC BLCK 


LOAD 
BLCK IN 
REG BLREG 


MULTPLY 
BLREG BY 
2 


MVC 

LOCO+2 (2) 
RLC (BLREG) 


RETURN 




MOVE LEVEL 
NUMBER TC 
CFFENT+4 


SET STATIC 
BIT TO 
OFFENT+4 


RBUFF1 
( INPT) = 
X COOO 


X 

♦ **K1♦** ** ** 
OFFOUT 

*PUT*OFFSET 
ON TXTCUT 
MEDIUM 


LOCC = 
LOCC + 
LENGTH CF 
VARIABLE 


TEST IF 
LOCO GT 
THAN 64K 


PUT LOCO 
IN THE 

CORREST. PL. 


♦♦*K5***** 

RETURN 


c 

CHART 24. IJXF75 OFFSET, GETLOC 
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***A1***** 

PUTLOC 


HOVE 
LOCO TO 
LCST 


MOVE LOC. 
COUNTER 
TO LOCO 


LOAD 
SAVEC 
AD OR IN 
BLREG 


********* 


MOVE 
BACK 
LOCO TO 
0 (BLREG) 


*»D2***** 

RETURN 


AND OUT 
LAST 3BITS 
OF LOCO 1 
WITH OOO 


*E1****« 

SKIPV 


»****F1********** 


DIFF = 
LOCO 1 
LOCO 


DIFF 
GE THAN 
LEFTH 


INPT 
GT THAN 
BUFFL-7 


WAIT FCR 
SCRATCH 
MEDIUM 


LOCO = 
LOCO 1 - 
LEFTHANG 


INPT 
GT THAN 
BUFFL 


**J1***»* 

RETURN 


•*«»«H2******* 
X* REC = 1 


GET DSTAB 
FROM 
SCRATCH 


*J3****« 

RETURN 


********* 


CHART ZK. IJXF75 


PUTLOC, LEFTH, SKIPV 
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*A1«**« 
LAST 


*A3**««* 

BLTAB 


MGVE 

X FFFF TO 
OBUF 1 (OPT) 


PUT OUT 
OBUF 1 
ON TXTOUT 


OPT 

GT THAN 
BUFFL 


«F1*«*«* 

RETURN 


««#*D3»********* 

AND OUT * 

LAST 3 BITS * 
OF TS (REGA) * 
WITH OOO * 


PUT OUT 
OBUF 2 
ON 

TXTOUT 


REGA 
GE THAN 
128 


MOVE 
RECORD 
LENGTH = 

128 IN TABTAB 


PUT BLTAB 
ON 

SCRATCH 


MOVE 

LCST INTO 
COMMUN. 
REGION 


»*K3***»* 

RETURN 


CHART ZL. IJXF75 


LAST 9 BLTAB 
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4T 






.♦ DEF. * 
.X*. VARIABLES 
*IN CURRENT-* 
*.COMP..* 


•****C2******** 

* EQUATETABLE 

* CONEQU 


*****83********* 

* FETCH 

* DEF.VARIABLES 
X* FROM SYMTAB 

* TO 

* EQUATE TABLE 


**»*C3******** 
ADD ALL 
ENTRIES OF 
CONEQU 
TO 

EQUATE TABLE 


* SET MI N=Q 

* AND MAX=M, 

* M=NUMB.CF 
♦OFFTAB ENTRIES 

* IN WORKAREA 


*****E2********** 

♦SORT OFFSETS CF* 
*OFFTABl ENTRIES* 
.X*WITH INT.NAMES.* 
* .GE. MIN AND * 
*.LT.MAX IN WORK* 


* CALCULATE THE * 
♦OFFSETS OF EQU.* 

* OF BASE DATA * 
♦WITH INT.MAMES * 
*.GE.MIN,.LT.MAX* 


MAX 

GREATER 
NUMB.CF 
♦OFFSETS* 


G3 

MIN=0 "*- NO 


PUT LAST REC. 
OF 0FFTAB2 
* FROM 
WORKAREA 


•****C4********** 

l SET * 

* MIN=0 * 

* AND * 

* MAX=M * 

***************** 


******** 


*»***E4********** 
♦INSORT OFFSETS ♦ 

♦ OF EQUATES ♦ 
♦WITH INT.NAMES * 
*. GE.MIN».LT. MAX* 

* INTO OFFTAB2 * 
***************** 


.* MAX *. 
GREATER 
NUMBER OF 
. OFFSETS . 


PUT REC.OF 
OFFTAB 
FROM 

WORKAREA 


INCREASE 
MAX AND MIN 
BY M 


X 


X 


******H2*********** 

* * 

***H3******** 



« 

INSORT 


* PUT REC. OF * 

* 

OFFSETS OF 


.. OFFTAB2 

« 

ALL EQUATES 


* FROM * 

* 

INTO 


WORKAREA 

«* 

OFFTAB2 

• l 


***»**G4********* 

* PUT LAST REC. 
OF OFFTAB 
* FROM * 

WORKAREA 
************* 

X 


OFFTAB 
.X*. WILL STAY 
♦.IN STOR. . 


CHART AA. IJXF90 


GENERAL FLOWCHART 


\4_ ^ 
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>A2**** 


CHART 


SET 

BUFFER-AND 

TABLESPACE- 

POINTER 


DUMMY 
WRITE 
ONTO 
TXT I N 


.♦ DEF. * 
. VARIABLE 
♦IN CURRENT.* 
*.COMP..* 


FILL BEG.OF 
TABLESPACE 
WITH ZEROS 


*****F2********* 

* LOAD NUMB. 

* OF RECORDS 

* OF SYMTAB 

* TO 
♦RECORD COUNTER 


PICK UP 
HEAD OF 
SYMTAB ON 
SCRATCH 


NOTE 

BEG. 

OF EQUTAB1 
* CN TXT IN 


GET 

SYMTAB 

TO 

BUFFER A 


DECREASE 
RECORDCOUNTER 
BY ONE 


RECORD * 
COUNTER 
EQUAL 0 .* 


OFF .*SWITCH CON *. ON 


.* END 
..X*. OF RECORD 
♦.OF SYMTAB. 


.* END 
. OF BLOCK 
♦.OF SYMTAB. 


X 

♦*G3«****** 

WSR22 

WORK UP 
AN ENTRY 
OF SYMTAB 


* H3 

WWRIT2** 


PUT 

TABLE SPACE 
ONTO TXT IN 


OFF .*SWITCH CON 


MOVE 

BUFFER B 
TO BUFFER 


****E5********* 
MOVE 
EQUATES 
FRGM BUFFER A 
TO 

TABLE SPACE 


INCREASE 
TABLE SPACE 
POINTER 
BY 

BUFFER LENGTH 


Ab. IJXF90 


INITIAL. L GATHERING OF EQU. 
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C2 *. 

♦SWITCH CON**. ON 


* PICK UP 
HEAD CF 
•CONEQU TABLE 
*ON SCRATCH * 


****D3******* 
MOVE 
EQUATES 
FROM BUFFER 
TO 

TABLESPACE 


PUT 

TABLE SPACE 
ONTO TXT IN 


****»G2********* 

* LOAD NUMBER 

* OF RECORDS 

* OF CCNEQU 

* TO 
♦RECORD COUNTER 


WORK UP 
AN ENTRY 
OF SYMTAB 


PUT 

TABLE SPACE 
ONTO TXTIN 


WGATH5 

NO .** 


BYTES *- NO 
OF CONEQU .*... 
-IN TABLE .* 

*.SPACE.* 


**G3******* 
PUT LAST 
RECORD OF 
EQUTAB1 
ONTO 
TXTIN 


SET 

SWITCH 

TXT 


**************** 


CHARI AC. IJXF90 


GATHERING Of EQUATES 
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CHART 


LOAD MAXIM. 
NUMB. CF 
OFFSETS 
TO Rll 


***C2«****«* 

PREPARE 
ENTRY GF 
OFFTAB IN 
TABTAB FOR 
NEXT PHASE 


**♦D2*** *•** 
STORE 
ADDR. CF 
TABLESPACE 
USED IN 
NEXT PHASE 


****E2«*****««* 

STORE N2= 
NUMB.OF REC¬ 
USED IN NEXT 
PHASE TO WCRK 
UP OFFTAB. 


CALCULATE 

LENGTH 

OF 

WORKAREA 


LENGTH GF 
WORKAREA 
DIVIDED 
BY THREE 


.♦ OFFTAB * 
..X*. LONGER THAN 
*.WORKAREA .♦ 


•*«**C3********* 

* M = M1 

* (M=NUMB.OF 

* POSSIBLE 

* ENTRIES OF 

* OFFTAB IN WA) 


FLOOR OF 
Ml DIV. BY 
BUFFER LENGTH 


STORE 
ADDR.OF 
END OF 
WORKAREA 


*««*»E3******** 


SET 
MAX=M 
AND 
M IN=0 


* OFFTAB *. NO 

LONGER THAN . 

♦.WORKAREA .♦ 


PICK UP 
HEAD OF 
OFFTAB1 
♦ON SCRATCH 


AD. IJXF90 


CONSTR. OF UQRKAREA 
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* C3 


CHART 


WGETQFF1 X 

**C2******* 

* GET 

* RECORD CF 
* OFFTAB1 

* TC 

* BUFFER A 


* SET BUFFER 

* POINTER AND 
•CLEAR WGRKAREA 


. .X* 


WGETGFF2 X 

**C3******* 
* GET 
RECORD OF 
OFFTAB1 
TO 

BUFFER B 


* OFFTAB * 
LONGER THAN 
*.WORKAREA .* 


PUT 

BUFFER A 
ONTO 
SCRATCH 


* OFFTAB 
LONGER THAN 
*.WORKAREA . 


PUT END 
OF TABLE 
ONTO SCRATCH 


WORK UP 
AN ENTRY 
OF OFFTABI 


*H3* 


WSR21 
A*-*-*-*—*-*—* 
END OF 

* BUFFER 

* ROUTINE 


AE. IJXF90 


SORTING OF OFFSETS (TXTOUT) 
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WEQUEQU1 


PICK UP 
HEAD OF 
EQUTAB1 
*ON SCRATCH 


«*B1»****** 

* GET * 
* EQITAB1 
FROM SCRATCH 


NUMB.CF 
REC.OF 
EQUTAB1 TO 
RECORDCOUNTER 


* NOTE BEG. 
* OF EQUTAB1 

* ON TXT IN 


OFF .*SWITCH TXT *. ON 


PICK UP 
LEG- OF 
EQUTAB1 
ON T XT IN 


WORK UP 
AN ENTRY 
OF EQUTAB1 


*PUT BUFFER A 
ONTO 

* TXTIN 


WORK UP 
AN ENTRY 
OF EQUTAB1 


*PUT BUFFER B 
ONTO 

* TXTIN 


*PUT BUFFER A 
ONTO 

* TXTIN 


NO .* END * 
...*. OF EQUTAB1 

* IN BUFFER A* 


GET EQUTAB1 
FROM TXTIN 
TO 

* BUFFER B * 


WORK UP 
AN ENTRY 
OF EQUTAB1 


*PUT BUFFER 
ONTO 

* SCRATCH 


MOVE 

BUFFER B TO 
BUFFER A 


* PUT BUFFER 

ONTO 

* SCRATCH 


PUT END OF 
TABLE ONTO 
SCRATCH 


MOVE 

BUFFER B 
TO BUFFER A 


CHART AF, 


IJXF90 


CALCULATING OFFSETS OF EQUATES 
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'V. 


MAX 

GREATER 
.MUMBER OF. 
♦OFFSETS* 


* PICK UP * 

* HEAD OF 
EQUTAB 

* ON SCRATCH 
AND ON TXTIN* 


****»E1********* 

* LOAD NUMBER 

* OF RECORDS 

* OF EQUTAB 

* TO 
♦RECORD COUNTER 


WGETPUT1 X 

•»* FI #*-»*•**# 

* GET A 

* RECORD OF 

..X* EQUTAB 

* TO 

* BUFFER A 


WAIT FOR 
END OF 
I/O OF 
SCRATCH 


* DECREASE 
♦RECORD COUNTER 

* BY ONE 


* RECORD 
COUNTER 
♦.EQUAL TO 
♦.ZERO .* 


CALCULATE 
END OF FILLED 
WQRKAREA 


PUT 

WORKAREA 
ONTO TXT OUT 


F2 *. 

OFF .*SWITCH TXT* 
X 


PUT 

WORKAREA 
ONTO TXTOUT 


»«C3******* 

SET 

MIN EQUAL 
MAX AND 
INCREASE 
MAX BY M 


* PICK UP 
HEAD OF 

* OFFTAB1 
*ON SCRATCH 


*****E3********** 

* LOAD NUMBER * 

* OF RECORDS OF * 

* OFFTAB1 TO * 
♦RECORD COUNTER * 


SET POINTER 
ANC CLEAR 
WORKAREA 


*ON 


D1 


DECREASE 
RECORD 
COUNTER 
BY ONE 


RECORD 

COUNTER 

ZERO 


WAIT FCR 
END OF 
I/O OF 
SCRATCH 


WOFFSCR3 

***«•» E 4 ******* * 

* _WSR11_ 

X* WORK UP 

* AN ENTRY 

* OF OFFTABI 


** ***F 4********* 
* WSR21 

A*-*-*-*-*-*-*-*- 
..* END OF 
♦BUFFER ROUTINE 

*»*****«»**»«#«’* 


WORK UP 
AN ENTRY 
OF OFFTABI 


BUFFER A * 


CHAKT AG. IJXF90 


SORTING OF OFFSETS (SCRATCH) 
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*AH * *AH** 

* Bl* * B2* 


PICK UP 
HEAD OF 
EQUTAB ON 
SCRATCH 


*****C1********* 

* LOAD NUMBER 

* OF RECORDS 

* OF EQUTAB 

* TO 
•RECORD COUNTER 


SET 

MAX EQUAL M 
AND 

MIN EQUAL 0 


•PICK UP HEAD 
OF 0FFTAB2 
* ON TXT CUT 


..X* SET POINTER 

• AND CLEAR 

• WORKAREA 


GET 0FFTAB2 
FROM 

TXTOUT TO 
* WORKAREA * 


**C5******* 

SET 

MIN EQUAL 
MAX AND 
INCREASE 
MAX BY M 


GET EQUTAB 
TO 

BUFFER A 


SET 

BUFFER 
POINTER TO 
BUFFER A 


DECREASE 
RECORD 
COUNTER 
BY ONE 


RECORD 

COUNTER 

ZERO 


GET EQUTAB 
TO 

BUFFER B 


PICK UP 
HEAD OF 
EQUTAB 
ON TXT IN 


GET EQUTAB 
TO 

BUFFER A 


* GET EQUTAB 
..X« TO 

. * BUFFER B 


WORK UP 
AN ENTRY 
OF EQUTAB 


*K1« 


WSR21 * 

*_*_*_#_*_*_*A 
END OF *.. 

BUFFER * 

ROUTINE * 


YES . * END 

OF EQUTAB 


WORK UP 
AN ENTRY 
OF EQUTAB 


WSCREGU6 .*. 

J2 *. 

.*OFFTAB *. 
.•LONGER THAN* 
..X*. TABLE SPACE 
*. AND 2 .* 

*.BUF. .* 


.* MAX * 
.X*. GREATER 

•.NUMBER OF.* 
•OFFSETS* 


.* MIN *. YES * 

*. EQUAL ZERO .*-X* J2 


WEND01 X 

••F4******* 

* WSRB1 

..X* CALCULATE 
. *END OF FILLED* 
. * WORKAREA * 


PUT 

WORKAREA 
ONTO SCRATCH 


WORK UP 
AN ENTRY 
OF EQUTAB 


END OF 
BUFFER 
ROUTINE 


*NG 


*»*K2***«*«* 

MOVE 

OFFTAB TO 
AREA 

WANTED IN 
NEXT PHASE 


PUT 

WORKAREA 
ONTO SCRATCH 


REWIND 

TXTIN 

AND 

TXTOUT 


CHART AH. IJXF90 


INSORTING OF OFFSETS OF EQUATES 
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/<r^ 


BUFFER ROUT. 


***D2 ******** 
MOVE 

BUFFER B TO 
BUFFER A 


* WAIT * 

* FOR END * 
OF I/O SCRATCH* 


*G3* 
EXIT B 





CHART AI. IJXF90 


SUBROUTINES, BUFFER 
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< 


c 

CHART 


****B2********* 

* WORK UP * 

* AN ENTRY * 

* CF SYMTAB * 


* PUT * 

* TABLE SPACE * 

* ONTO TXTIN * 


DEF. 

VARIABLE 
.IN ENTRY 
♦TESTED.* 


****D2******** 

MOVE 

I NT.NAME CF 
DEF.VARIABLE 
TC 

TABLESPACE 


MOVE 

I NT.NAME CF 
BASE VARIABLE 
TC 

TABLESPACE 


INCREASE 

TABLESPACE 

POINTER 


INCREASE 

BUFFER 

POINTER 


**H2*»** 

EXIT 


***C3******* 
PUT END OF 
TABLE ONTO 
SCRATCH 


* INCREASE 
♦BUFFER POINTER 

* BY TWO 


END * 
OF TABLE 
.IN BUFFER.* 


PUT 

BUFFER B 
ONTO 
SCRATCH 


* END * 
OF RECORD 
*. IN TABLE .* 
*.SPACE.* 


WRITE 

RECORD 

ONTO 

TXTIN 


*C5**«* 

EXIT 


***F4******** 

MOVE 

REMAINING 
BYTES TO 
BEG. OF 
TABLE SPACE 


RESET 

TABLE SPACE 
POINTER 


FILL BEG.OF 
TABLE SPACE 
WITH ZEROS 


FILL BEG. 
OF 

TABLE SPACE 
WITH ZEROS 


AJ. IJXF90 


SUBROUTINES 
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WORK UP 
AN ENTRY 
OF OFFTAB1 


*B2 ******* 
WORK UF 
AN ENTRY 
OF ECUTAB 


********* 
COMPARE 
INT.NAME WITH 
MAX AND MIN 


-»**B4******* 
WORK UP 
AN ENTRY 
OF EQUTAB1 


LOAD 
INTERNAL 
NAME FOR 
COMPARISON 


COMPARE 
INT.NAME WITH 
MAX AND MIN 


*****E1********* 

* MOVE OFFSET 

* AND ATTRIBUTE 

* OF INT.NAME 

* TO 

* WORKAREA 


**D2***«* 
EXIT A 


D3 *. 
.* INT. * 
NAME 

GREAT.OR 
. EQUAL 
*. MIN .* 

* * *YES 


■»*« E3****** * 
CALCULATE 
ALLOCATION 
OF ENTRY 
IN 

WORKAREA 


LOAD 

. INTERNAL 
\ NAME FOR 
COMPARISON 


COMPARE 
INT.NAME WITH 
MAX AND MIN 


MOVE ATTRIB- 
OF INT.NAME 
OF BASE DATA 
TO MODIFIER 


»*««G1******** 
* EXIT 


ADD MODIFIER 
TO OFFSET OF 
INT.NAME OF 
BASE DATA 


**»«»H4******* 

* STORE 

* OFFSET OF 

* EQUATED 

* DATA 



CHART AK IJXF90 


SUBROUTINES. WORK UP ENTRIES 


356 























•»***B1********* 
CALCULATE 
END OF FILLED 
WORKAREA 


***B2 ******** 
PUT 

WORKAREA 
GNTO TXTOUT 


CALCULATE 
LENGTH 
OF FILLED 
WORKAREA 


SET ADDR.OF 
OUTPUT AREA 
EQUAL ADDR- 
OF WORKAREA 


CALCULATE 
END OF 
FILLED 
WORKAREA 


*E1* 
EXIT 


**E2******* 
PUT 1 RECORD# 

* FROM 
OUTPUT AREA 

* CNTC 

* TXTGUT * 


RESTORE 
ADDR.CF 
OUTPUT AREA 


****G2********* 
INCREASE 
ADDR.CF 
OUTPUT AREA 
BY 

BUFFER LENGTH 


NO .* END 
..*. GF WORKAREA 


PUT 

WORKAREA 
ONTO SCRATCH 


****B4********* 

* SET POINTER * 

* AND * 

♦CLEAR WORKAREA * 


LOAD PARAN TO 
REGISTERS 
0 TO 3 



WSR41 X 

* SET * 

♦BUFFER POINTER * 

* TO * 

* BUFFER A * 


«H3**** 

EXIT 


FILL 

WORKAREA 

WITH 

ZEROS 


PUT 

WORKAREA 

ONTO 

SCRATCH 


**E4***» 

EXIT 




CHART AL. IJXF90 


SUBROUTINES. WORKAREA 
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* ISU * 



.* *. YES * 

*. POILT B2 .*.X* RETURN 


MOVE FROM 
B2 TO B1 
WITH BUFL 


**D1* 

IJKGI 
GET NEW 
INPUT FOR 
B2 


SUBTRACT 
BUFL FORM 
POI 


**** A 4* ****-»*■*« 

* MODIF * 



* HW 
AT WMO+2 
*GT X FFF8 


LOAD R2 
WITH HW 
AT WMO+2 



* RELOAD R2 * 


*F5**»** 

RETURN 


*****J1********** 

* * 

* POI+L * 

* POU+L *X, 



MOVE FROM 
POI TO POU 
» WITH L 


* J4 ** 
.X*I LL = 0 


POI+ LL 
POU= BO 
L= L-LL 
LL = BUFL 


IJKPO 
PUT OBUF 
ON TEXT- 
MEDIUM 


MOVE FROM 
POI TO POU 
* WITH LL 



CHART AM. IJXF95 


ISU, MOO, MODIF 
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IJXF95 


CHART 


*** *B2• « * ***«* 

READ OFF TAB 
INTO TABLE 
SPACE 


**C2*****»« 

READ TEXT 
INTO I/C- 
BUFFERS 


* SCAN THE TEXT 

* FCR REFERENCES 

* TO OFFTAB CR 

* END OF TEXT 


* MOVE THE * 

* HW CONTAINING * 
♦OFFSET AND BASE* 
♦REG. IN OUTPUT * 


TAKE OFFSET 
AND LEVEL 
FROM CFFTAB 


CHANGE THE 
KEY AND PUT 
THE ELEMENT 
IN OUTPUT 


CHANGE THE 
INSTRUCTION 
IF NECESSARY 


*****F5«**»****** 

* GENERATE CODE * 

* CORRESPONDING * 
♦TO KIND OF INST* 

* AND 4K-BL0CK * 


DETERMINE 
THE BASE 
REGISTER 


.* OFFSET *. 
.PLUS MODIFIER. 
*. GE 4K .* 


DETERMINE 
THE CORRESP. 
4K-BL0CK 


DETERMINE 
THE KIND 
OF INSTRUC¬ 
TION 


AN. IJXF95 


GENERAL CHART 
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CHART 




*A2«**»« 
IJXF95 


* IS * 

OFFTAB IN 
♦TABLE SPACE* 


TAKE NUMBER 
OF OFFTAB 
RECORDS INTO 


»C3***** 
BN = 0 


**D3* 

* IJKGI * 

* READ TEXT 
RECORDS INTO 

* B1 AND B2 


* * * D 4* ********* 
WUP * 

*-*WORK-UP*-*-* 
THE TEXT * 


**E2******* 
* ZTIN 

* READ M 
CFFTAB. REC. 

* INTO TS 


**E4******* 

* IJKPO * 
♦PUT THE LAST 
RECORO ONTO 
* TXTOUT-M. 


F2 *. 

BN GTM *:*X. 


* JKPH * 

* REW = YES * 
♦SWITCH = YES * 


F 4 *. 

BN = 0 

*"*YES 


ZTIN * 

READ BN * 
OFFTAB-REC. * 

* INTO TS * 


* IS 
OFFTAB ON 
*. SYSOOl . 


ZT OUT 

PUT OFFTAB 
ON SYSOGl 
* (ZTABI1) 


* I JKPH * 
NEWPH = GOO *X. 

* REW = YES * 
SWITCH = YES* 


** J4********* 
END * 




AO. IJXF95 IJXF95 
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CHART 


MOVE THE 
ELEMENT 
INTO OBUF 


«****C3********** 

* ISU * 

♦-•-SUPERVISE-*-* 

X* THE INPUT * 

* BUFFERS * 


INSERT 
X380C5FFFF3 
AT POI 


**#*E2********* 

MOVE THE 
END-KEY 
INTO THE 
OUTPUT BUFFER 


* TEST * 

THE BYTE AT 

*. POI .* 


ASSEMBLER-X INSTR. 
***** E 3********* 

* 8RANCH TO THE 

* CORRESPONDING 
♦SUBROUTINE VIA 

* BRANCH TABLE 

* (FIG. 55 


*****05***** 
* POI+L 


***F2*«**« 

RETURN 


X 

C3 * 


AP. IJXF95 KUP 
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MOVE THE 
•ELEMENT INTO 
* OUTPUT * 


RX-.RS- 

A 

«****C3******** 

* MOVE THE 

* ELEMENT INTO 

* THE STACK 

* STA 


POI+9 

STAP = STA 
STAR = STA+9 


SET SWITCH 
SSS 

TO ONE 


MOVE GFFSET- 
HK FROM POI 
TC STAR, 
POI+Z 


MOVE FROM 
POI TO STAR 
WITH LENGTH 


***F2******** 

0GE1 

•-GENERATE*-* 
CODE IF 
MODIFIER GE 
4K 


G2 *. 

SSS = 0 *1*. 


* ****F4******** 

* MOVE THE 

* MODIFIER TO 

* STAR AND 

* CHANGE THE 

* KEY TO X21G3 


*****F5****** 

* STAP + 2 
X* 

* STAR + 2 


****G3********** 

OGE * 

-GENERATE*CODE-* 
IF MODIFIER + * 
OFFSET GE 4K * 


POI + 5 
STAR + 5 
STAP + 5 
SSS = 0 


***«H2««****•** 

MOO 

—*-MOVE*THE*-*- 
ELEMENT FROM 
STA INTO OUT¬ 
PUT 


****J3«******* 

MIO 

-*puT*aLOADa-* 
INTO OUTPUT 


4 


CHART AQ. IJXF95 WUP (2) 
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c 


*B2***«* 

RETURN 


NO .* OFFSET *. 
...*. IN PRESENT . 
PART OF OFFTAB 


***C3******* 

MOVE THE 
OFFSET AND 
ATTRIBUTE 
BYTE TO 
CFEN + 2 


.*D3»******* 

BAS 

-•-DETERMINE-* 
THE BASE 
REGISTER 


*E2«*** 

OGE1 


* MODIF 

*-*ADD*OFFSET-*- 
.X* AND MODIFIER 


( 


****F4****** 

KBT 

-♦-GENERATE* 

CODE 


***G3******** 

MOK 

♦INSERT-THE-* 
OFFSET WITH 
BASE REG IN 
STA 


****H3********* 

RETURN 



CHART AR. IJXF95 OGE 
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***A2 


TEST «. ONE 

BIT2 CF - *_ 

.ATTRIBUTE.* 

*.BYTE . * 


***C2*«***«* 
INSERT THE 
BYTE AT 
OFEN +4 IN 
RY AND SRL 
BY 6 


•***«B3***«*a 

X* RY = 12 

************* 


**B4****» 

RETURN 


«F1****** 
RY = 13 


*G1***»* 

RETURN 


**G3****** 
RY = 10 




*F4***»* 

RY = 13 


**G4****» 

RETURN 


*J2****«* 
RY = 13 


••***««****«**»« 


■»«**J3****** 

* RETURN 


CHART AS. IJ-XF95 BAS 
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****A1 


****B1********* 
INSERT THE 
BASE REGISTER 
INTO THE LEFT 
MOST 4 ElTS 
OF HW AT STAR 


****D1********* 

INSERT THE 
SUM INTO 
THE RIGHT 
MOST 12 BITS 
OF HW AT STAR 


*E1****» 

RETURN 


****B3********* 
DETERMINE 
THE NUMBER 
OF THE 4K- 
BLOCK IN R1 


*****C3********** 

* FRR * 

*-*-DET ERMINE-*-* 

* THE FREE * 

* REGISTER * 

* (5 OR 61 * 


SET SWITCH 
,BOTH f GN, 
RO = STCRE 


D3 *. 
R1 LT 3 

*NO 


NO .* ANY *. 
...♦REGISTER (5,6).* 
*. FREE .* 


••««F2********** 
MIO * 

-PUT-,STCRE,-*-* 
INSTRUCTION *. 
INTO OUTPUT * 


.X*. R1 LT 


CHART AT. IJXF95 


MOK * KBT 
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/#-• 


SET SWITCH 
, BOTH, 

ON, 

RO= STORE 


^B2 *', 

*1* RX-INSTR. 

**NC 


C2 «. 

.* ANY *. 
* REGISTER 
(5,6) FREE 


.X*. RL = I 


INSERT 8 
IN THE BYTE 
AT STA + 3 


INSERT 7 
IN THE 
BYTE AT 
STA + 3 


**C4**»** 

RETURN 


*—*PUT*THE*~* 
MASK INTO 
OEUF 


STORE REG. 
IN LAMA + 2, 
AND RY IN 
LAMA + 6 


E2 

R1 


INSERT 8 
IN THE BYTE 
AT LAMA + 3 


INSERT 7 
IN THE 
BYTE AT 
LAMA + 3 


*«F3***»**«** 
RG = LAMA 


*G3********** 
MIO * 

*PUT *THE*—*-* 
MASK IN * 
OBUF * 


*H3***»* 

RETURN 


CHART AU. IJXF95 


KBT (2» 
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* *A3*»* 


CHART 


STORE: REG. 
IN THE 
BYTE AT 
LOHA + 2 


EVALUATE 
(Rl-2) * 2 
AND STORE 
T IN LOHA + 


**C3******* 
RO = LOHA 


♦D3****** 

MIO 

*PUT*THE* 
MASK IN 
OBUF 


>E1***** 

RETURN 


INSERT REG. 
IN THE 
BYTE AT 
STA + 3 


INSERT REG 
IN THE 
BYTE AT 
ARMA + 2 




INSERT RY 
IN THE 
BYTE AT 
ARMA + 3 


«***J3********** 
MIO * 

—*PUT *THE*—*—* 
MASK IN * 
OBUF * 

*#•*•*«-»»*#**«** 


**K3****** 
RY = REG 


*KA****» 

RETURN 




AV. 1JXF95 KB T (3) 
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,*r- 


STORE REG 
IN LOHA+2, 
ARMA+2» 
ARMA+3 


SAVE Rl, 
SRL Rl, 1» 
EVALUATE 
(Rl-2) # 2 


******** 


*****C2********** 

* STORE 7 * 

* IN ARMA + 3, *X 

* RO = ARMA * 

***************** 


*****63****** 

* STORE Rl 

X* IN THE 

* BYTE AT 

* LOHA + 8 


* RIGHT 
MOST BIT 
*.OF Rl ON 


•****B4******* 


MIO 

*PUT*THE* 
MASK IN 
OBUF 


**B5 ****** 
MIO 

-*PUT*THE* 
MASK IN 
OBUF 



X 

.*. 





**D2********** 

D3 *. 


***D4******** 


« 

MIO * 





*-* 

-*PUT*THE*-*-« 

.* *. YES 


INSERT REG 


# 

MASK IN *.... 

....X*. RX-INSTR. . 

....X* 

IN THE 

* 

* 

OBUF * 

*• m* 

* 

BYTE AT 

* 

* 

* 

* , • * 

* 

STA + 3 

* 

#*« 

«****•*••*•**« 

* # *NO 






**E3********** 

X 

* 


* 

**«*E 4 * ******** 


STORE RY 

* 



IN THE 

* 

* RETURN * 

* 

BYTE AT 

* 

* * 

* 

ARMA +3 

* 

*************** 


*****F3********** 
* * 

* RO = ARMA * 

* * 


***G3***** 

MIO 

*—*PU T*THE- 
MASK IN 
OBUF 


***H3**«*«* 

RY = REG 


*J3****» 

RETURN 


*********** 


CHART AW. IJXF95 KBT (4) 
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c 


*«**61»***** 
* RETURN 


RETURN 


( 


c 

CHART AX. 


*B2****« 
R2 = 0 


*C2**«*» 
R2 = 6 


* TEST * 
BITS 6,7 OF 
*. BYTE AT .* 
*.REWO .* 


* TEST 
BIT 7 OF 
*.REWO-BYTE. 


B4 *. 

-X*: SWITCH = 0 


R2 = 6 

SET BIT 5 OF 
REWO-BYTE 
ONE 




SWITCH =0 .* 


*****F4******** 

* R2 = 6 


**C5****« 

RETURN 


•****•*• 

* R2 = 5 

X* CLEAR BIT 5 

* AT REWO TO 

* ZERO 


**»*E5* 

.X* RETURN 

*************** 


F3 

*«* 

**F4********** 







***F5********* 

.* * . NO 


SET BIT 4 * 



*. SWITCH .*. 

...X* 

AT REWO 


RETURN * 

*. =0 -* 

* 

TO ONE * 

* 

* 

** *YES 

* 


** 

****#•*«**««*» 


NO FREE REG 
FOR CGDE- 
GENERATICN 


BIT 4 
AT REWO 
= 0 


**H3****» 

RETURN 


IJXF95 FRR 
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CHART AY. IJXF95 
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c 


*B1* 

R1= 4 


*B2***«* 

DCAL3 


TO MOVE THE * 
ELEMENT TO * 

* OBL'F * 


**C2 »«*** 
R1 = 7 


LOAD HW 
AT POI+2 
IN R1 


TO MOVE THE 
ELEMENT TO 
* OBUF * 


****E 4******** 

* RETURN 


( 


c 

CHART AZ. IJXF95 MULTI,OCX,DCAL3 
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***B2******* 
MOVE THE 
LEVEL FROM 
P01+3 TO 
LEVS 


**C2 ******* 


MOVE THE 
'ELEMENT INTO 
* CBUF * 


*D2 ********* 
RETURN * 

************ 


HW AT 
POI + 2 = 
FFFF 


*****B4********** 

* INSERT LC * 

* INTO REGISTER * 

* R1 AND * 

* ADD 4 * 

* * 
***************** 


MOVE THE 
STRING INTO 
* OBUF * 

*********** 


**** 04 ********* 
* RETURN 


CHART BA. IJXF95 


PROCEfPARA 


tfT 

V. 
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.* AT P01 + 3 *. YES 


***B4*****-» 
MOVE X2032 
INTO THE 
BYTE AT 
REWO 


MOVE THE 
ELEMENT 
INTO OBUF 


* MOVE ELEMENT * 
AND FOLL-BRANCH 
* INTO ObUF * 


♦*D1***** 

RETURN 


***C2 ««**«** 
SET BIT 6 
OF BYTE AT 
REWC TO 
ZERO 


***D3******* 
SET BIT 7 
OF BYTE AT 
REWO TO 
ZERO 


CHART 6b. IJXF95 


ADD.UR EG 
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*A3********* 


CHART 


****53********* 

CONSTRUCT 
LABTAB 
AND PBT 


«* ************** 


***C3********** 

SCAN THE 
TEXT FOR * 

BRANCHES * 

AND END-KEY * 


***04******* 
PUT LABTAB 
ONTO 
SYSCO1 




**E2******* 

PUT ELE¬ 
MENT INTC 
OUTPUT 


**D5******* 

* CALL * 
PHASE 

& ui 1 


****E5****** 
* END 

************ 


*«*«*F2******** 

* INSERT INDEX 

* REGISTER IF 

* NECESSARY 


-LABEL IN*. 

* THE SAME *. NO 
12K-SEG. .*... 


*GENERATE* 

CODE 


*****G2^ 

* UPDATE THE 

* LABEL-OFFSETS 

* IN LABTAB 

* AND PBT 


**«**G3********** 

* DELETE THE * 

* PSEUDO-ASS.- * 
.* INSTRUCTION * 


BF. IJXGOO 


GENERAL CHART 
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•A3***** 
IJXG30 


*****B3********* 

* INITIALIZATTGN 

* OF THE 

* PHAS--E 


CONSTRUCTICN 
OF LABTAB 
AND PBT 


REWIND THE 
TEXT-INPUT— 
* MEDIUM 


( 


•INITIALIZATION 
« OF THE 
* SECOND PART 


* ZTIN * 

READ FIRST 
•PART OF LAB- * 
•TAB INTO TS* 


**F4** ***** 

IJKNT 
NOTE T IN 
LABNOTE 


SUPERVISE 
THE INPUT- 
* BUFFERS 


MACHINE-.INSTR. 

X 

*****K2******«** 

* GM 
•-•-•WORK-UP*-*- 

* THE MACHINE 

* INSTRUCTION 


H3 *. **«**H4********** 

.* *. • SBO • 

SEGMENT *. YES 

BOUNDARY .*.X* HANDLING * 

.* * OF SEGMENT- * 

*. .* * BOUNDARY * 

* *NO 

lx.I 

X 

J3 * *•- 

.TEST BYTE. 

AT POI *. 

. .*’ END-X KEY 

.* * *BH « 

* * Bl* 


ASSEMBLER--INSTR 


WORK UP 
THE ASSEMBLER 
INSTRUCTION 


CHART BG. IJXGOO 


I JXGOO 
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*A3- 





****B1********* 
SET LOCI ON 
DW-BOUNCARY 
BY GENERATING 
A CORR. DS 


*********** 


*****C1********* 

* INSERT THE 

* LENGTH OF 
^OBJECT PROGRAM 

* INTO ZTABC5 


****** ****** 


**D1*«****« 
PUT THE 
END-KEY 
INTO OBUF 


DETERMINE 
THE FORMAT 
AND THE 
LENGTH 


* ADJUST THE * 
LOCATION COUNT.* 
•CORRESPONDINGLY* 

* (LOCO,LOCI) * 


MOVE THE 
ELEMENT 
INTO OBUF 


BRANCH TO THE 
CORRESPONDING 
SUBROUTINE BY 
MEANS OF THE 
BRANCH TABLE 


»C5***** 

RETURN 


* IJKPO 
PUT LAST 

* TXT-RECORC 
•ONTO TXTOUT* 


**E3***»* 

RETURN 


X 

**F1*«***«* 

* IJKPH _ * 

♦CALL PHASE GOl 
* REWIND ALL * 
« SWITCH * 


4p 

v,_ 


CHART BH. iJXGOO 


1JXGOO,GM*GA 
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< 


***A3**** 
LATA 


a*-»-**B3********* 
“INITIALIZATION 
« FOR 

» LATA 


WORK UP 
THE MACHINE 
INSTRUCTIONS 


i 


D3 

.* TEST * 
THE BYTE 
AT POI 


»*E3*****«* 
INSERT 
X FFFF 
IN LABTAB 


ASSEMBLER- 


WORK UP 
THE ASSEMBLER 
INSTRUCTION 


*H3***»* 

RETURN 


ZTOUT 
PUT REST 
OF LABTAB 
*ONTO SYSOOl* 


*H4****« 

RETURN 


c 

CHARI Bi« IJXGOO LATA 
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/tflf 


MOVE THE 
NAME FROM 
POI + 2 TO 
LAPO 


***C 3 ******■» 
STORE LOCO 
INTO THE 
HW AT 
LAPO+2 


PUT THE 
PROGRAM- 
BLOCK-NUMBER 
INTO LAPO+4 


*E3********* 

LAPO+5 


RETURN 


* ZTOUT * 

* PUT THE * 
LABTAB RECORDS* 

* ON SYSQG1 * 


**H3***»* 

RETURN 


CHART BJ. IJXGOO 


LABE 
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c 


B2 X 


* P3TCC=LSP * 


C2 « - 
.-*END-KEY*. 

AT PBTCO *- NG 


C3 *. 

.* BYTE *. 

.*AT P6TCO+4 *. YES 
*. =P BN .*_ 


ADD UP ON 
THE HW 
AT PBTCO+2 


. .X* PBTCC=PBT 


*D4»***»* 

PBTCO+5 


*E1 ***** 

RETURN 


I 


E2 *. 

.*END-KEY» 
AT PBTCO 


.* LOCI * 
GT HW AT 
PBTCC+2 


*F3********** 
PBTCO+4 * 


E4 

*PbTCG+5*. 

GT TSE *. NC 


STORE 

PBTCO 

INTO 

LASTAD 


♦**G2******« 
ADD UP CN 
THE HW 
AT PBTCC-^2 


c 

CHART BK. IJXGOO UDA 
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ZTOUT * 
PUT ONE 
LABTAB-REG * 
♦ONTO SYSOC1* 


.♦ BYTE ♦ - 
.♦ AT LSP+4 ♦ . NO 
.X*. =PBN .*... 


»B4«»»*« 

RETURN 


«C1***** 

RETURN 


C3 ♦ . 

.* LOCO ♦ . 

GT HW AT ♦ . NO 
LSP+2 .♦... 


.♦NO 
02 ♦ . 

•*LSP GE *. 
TS + BUFL 


*D3**»*** 
LSP + 5 


ZTCUT 
PUT ONE 
LABTAB-REC 
♦ONTO SYS001* 


X 

**F2**»«*** 

* IJKMN * 
*—*MOVE-FROM—* 
TS+8UFL TO TS 
* WITH L= * 
*T SE—TS —BUFL* 


.♦ ANY ♦ . 

.♦MORE LABTAB*. NO 
. RECORD ON .♦... 
♦. SYSCOI .♦ 


IJKPT 
POINTW T 
FROM 
LABNOTE 


♦*J3****»** 

ZT IN ♦ 

READ A ♦ 

RECORD INTO ♦ 


♦♦K3******* 

IJKNT 
NOTE T 
TO 

♦ LABNOTE ♦ 
•**««*«***** 


♦****K4*♦♦♦♦♦♦♦♦ 

♦ UPDATE THE 

♦ NEW LABTAB 
X* RECORD WITH 

♦UPDATE COUNTER 

♦ UPCO 
*»»«>*»»»>****«• 


\ 

CHART 6L. IJXGOO MOC 
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c 

CHART bM. IJX GOO SCAL 
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*A1«*** 
M ADM 


SAVE POI 
PQI=ADCMA 
Rl = 1C 


evaluate 

ABS = 

N*12K—LOCC-2 


MOVE THE 
MASK INTO 
OEUF 


***C3* 
LOCO+ABS+2 
L0C1+ABS+2 
UP = ABS+2 
UPCC+ABS+2 


*D1 ***** 
RELOAD 
PCI 


**E1*«*«* 

RETURN 


GENERATE 
INSTRUCTION 
BCR 0,0 


. *N0 
E4 *. 
ABS=G 


GENERATE 
BALR 9,0 
SRS =0 
N+l 


UPDATE 
LABTAB AND 
PBT 


PUT LABTAB 
ON SYS001 
AND READ NEW 


* J4***«* 
RETURN 


CHART BN. IJXGOO 


MADM.SBO 
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c 


< 


c 

CHART 


N=C *. YES 


B2 *. 

.* WORD * 
BOUNDARY 


*E3****« 
LOCO+2 
LOG 1+2 


GENERATE * 

HE CORRESP. * 
NUMBER OF * 
BCR 0,0 * 


ADJUST 
LOCO,LOCI 
ANC POI 


UPDATE 
LAETAB 
ANC PBT 


***C2***** 

LGCC+6 

LCC1+6 


**C3****» 
PO1+4 


*F1***** 

RETURN 


*F3****» 

CCAL3 


L0C1+3 

L0C0+3 

Rl=7 


♦G4****** 

RETURN 


• * YE S 
4 *. 

N=G 


X 

LCC1 + L 
LOCO+L 
Rl=L+4 


MOVE THE 
ELEMENT 
INTO OBUF 



BO. IJXGOO 


CNUP * DC AL 3 » DC X 
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*A1**** 

DSL 


*A2***«* 

DCSTA 


*B1****» 

LOCO+L 

LOC1+L 


**B2***«* 

LOCC+4 

LCC1+4 


«***B3********* 

* LABEL * 



*"*YES 



* MOVE THE * 
♦ELEMENT INTO * 

* OBUF * 


INSERT THE 
LABEL INTO 
LABTAB 

*************< 


X 



RETURN 


CHART BP. IJXGOO 


DSL,LABEL.DCSTA 


384 
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< 


TAKE THE 
BLOCK-NUMBER 
FROM POI+3 
AND STORE IT 
INTO PEN 


*C1***»* 

LOCO=C 


N=D *. NO 


•♦♦El******** 
INSERT NAME 
AND OFFSET 
INTO PBT 


**A2 ***** 
PROCE 


HW AT 
POI+2- 
FFFF 


**C2* 

R1 =6 


MOVE THE 
ELEMENT 
INTO OBUF 


*A3**»** 

ENDBL 


**-»«A5***»* 
* RETURN 


MOVE THE 
* ELEMENT 
* INTO OBUF 


**C4******* 
SET BITO 
OF IJKMWC 
ON 


••***«•*•*** 


MOVE LABTAB 
ONTO SYSOOl 
AND READ NEW 


•«*E5****** 

END 


( 


**F2*«*** 

RETURN 


UPC0=0 

SRS=0 


*H5***«* 

LOCC+4 

LGC1+4 


CHART BQ. 


IJXGOO 


PROCE,ENDBL,DCF 
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.*NC 
A2 *. 
.•LABELS *. 
♦OF CURRENT « 
BLOCK IN TS 




A3 *. 

.♦BRANCH *. 

INSIDE OF THAT. YES 

♦.PART WHICH IS.*_ 

♦NOT OPTIM..* 


X 

♦B3**** 

SCAL 


FULLY IN TS 


SCAN LABTAB 
FOR THE 
LABEL 


.* LABEL *. 
.♦IN THE SAME* 
.X*. 12K-SEGM. 


*BS** 
* B2* 


♦♦C2****** 

LQCC+12 

LOC1+12 


.FOLLOWS A. 
♦CONDITIONAL*. NO 
BRANCH .*... 


♦El****** 

L0C0+16 

L0C1+16 


♦E2***** 
Rl = 13 


♦♦♦♦C4******** 
DELETE THE 
PSEUDO-ASS.- 
INSTRUCTION 


D4 *. 

-•FOLLOWS*. / 

* A BC *. /NC 


.♦FOLLOWS*. 

.A CONDITIONAL. NC 
BRANCH 


♦♦***E5***** 

* UPCO-4 

* UP=-4 


MOVE THE 
ELEMENT 
INTO CBUF 


X 

♦♦*F4****** 
UPCO-12 
UP=-12 


UPDATE 
LABTAB 
AND PBT 


*G2****« 

RETURN 


CHANGE THE 
ELEMENT TO 
THE NEW 
FORMAT 


**H2****« 

RETURN 


YES .* CCB=0 *. 


MOVE THE 
ELEMENT 
INTO OBUF 


LOCO+4 
LOCI+4 
R1 =9 


PUT THE 
ADC-MASK 
INTO OBUF 


•**K3****« 

ccb=& 

LOCO+4 

L0C1+4 


♦***K4********* 

* RETURN * 


f 


CHART BR. IJXGOO ADD 
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CHART 


»****B2********* 

* DETERMINE 

* THE LENGTH 

* OF THE CODE 
•FOR THE BRANCH 

* INSTRUCTION 


C2 *. 

.* DOES *. 

.THE CODE FIT*. NO 
.IN THE .. 


**«*D2* 

GENERATE 
THE CGRRESP. 
CODE IN 
OBUF 


****C3********* 

GENERATE 
THE NECESSARY 
NUMBER OF 
BC 

AND THE BALR 


***C4******* 
INCREASE 
LOCATION 
AND UPDATE 
COUNTERS 


PUT LABTAB 
ONTO SYSOOl 
READ NEW 


*E5* 
RETURN 


6S. IJXGOO 


ADD (2) 
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***A2**«* 

PARA 


PUT LC INTC 
REGISTER R1 
AND LC INTC 
REGISTER R2 


*C1***+ 
R 1+4 


PUT THE 
ELEMENT 
INTO OBUF 


**F2****« 

RETURN 


.* DOES *. 
THE STRING FIT. 
*. IN THE SEGM. . 


* * C5 ******** * 


.X* HANDLING 

* CF SEGMENT 

* BOUNDARY 


* UREG 


*G4**»** 
POI + 4 


*H4*»* **■ 
RETURN 


CHART BT. iJXGOO 


PARA»UREG 


(f 
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( 


*A2****» 
IJXG01 


A3 *. 

• X*I SYM-BIT 
*. ON 

* *NO 


■»*B3******* 

TAKE THE 
NUMBER OF 
OFFTAB 
RECORDS 
INTO RX 


SET 

SWITCH 
SYMMY ON 


ZTIN 
READ RX 
OFFTAB REC 
* INTO TS 


* INSERT OFFSTES 

* INTO 

* OFFTAB 


**E1******* 

* 

* Z1 IN 
READ A 

* LABTAB-REC. 

* INTO B1 * 


* ZTIN 

* READ M 

* OFFTAB REC. 
* INTO TS 


ZTIN 
READ A 
LABTAB-REC. 

* INTO BO * 


***D4******* 
PUT NUMBER 
OF LABTAB 
RECORDS 
INTG RY 


.X*. SYMMY=0 


c 


.* RX=0 *. 


•INSERT OFFSETS 
*GF LAST LABTAB 
*REC.INTC CFFTAB 


LIST 

OFFSET 

TABLE 


ZTCUT 

PUT PRESENT 
OFFTAB-REC. 
*CNTC SYSOOl* 


PUT REST 
OF OFFTAB 
•ONTO SYSOOl* 


CALL 
PHASE 
IJX 615 


t 

CHART CA. IJXGOl IJXGOl 
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/on 

w. 


* RETURN 
*********** 


LOAD THE FW 
AT LAPO INTO 
RZ AND 

MULTIPLY BY 3 


. * ENTRY *. 

•IN PRESENT *. NO 
OFFTAB PART .*... 


*****C4***** 
* LAPO+5 


* MOVE FROM * 

* LAPO+2 TC * 

* CORR. PLACE *. 

* IN OFFTAB(L = 3) * 


MOVE FROM 
81 TO BD 
WITH BUFL 


*****E5*»*«»** 
* LAPO-BUFL 


*F5*«**« 

RETURN 


i CHARI CB. IJXG01 WOLA 


,4 




39o 
















OFLIS 



* INITIALIZE * 

* R1I * 

* FOR LISTING * 

*•***«*«**»*»*#** 


X 


**C3*»****« 

* HESUB 

* WRITE * 

* HEADERS * 


D3 X 

*poi = TS+xaaooa* 
* val = xaciooa * 


TRANSLATE 
NAME AND 
OFFSET 


NO .* 

POI+3 GE 
*- BG 


«*-»-»*F3********** 
* POI + 3 * 


*F5«**** 

RETURN 


CHART CC. IJXGOl 


OFLIS 
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THE 4 BYTES 
AT R1 INTO 
WORKAREA B 


TRANSLATE 
THE INTERN. 
NAME 


LEFT MOST 
BYTE A 
. DIGIT . 


SUBTRACT 
5 FROM 
BYTE AT 


INSERT A 
ZONE C 
IN FRONT 


D1 *. 
STATIC 


MOVE 
STATIC 
TO Rll+40 


EVALUATE 

MODULE 

OFFSET 


MOVE FROM 
B INTO THE 
PRINT BUFFER 
AT 0(RG) 


MOVE 

AUTOMATIC 
TO R11+4C 


PRINT 

THE 

LINE 


INSERT 
MODULE 
OFFSET INTO 
PRINT BUFFER 


RETURN 


»F2***** 

RETURN 


CHART CD, IJXGOl 


RANv TRANS 


jr" 

v 
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c 


#**33 •»#******#** 
READ OFFTAB 

INTO * 

TABLE 

SPACE * 


*#C3******« 
READ TEXT 
INTO 
INPUT 
BUFFERS 


*#D2******» 
PUT THE 
ELEMENT 
INTO OBUF 


#«*«D3********* 
SCAN THE 
TEXT 


END-KEY *. YES 


READ THE 
CONSTANTS 
INTO 
INPUT 
BUFFERS 


*#«#*E5******«** 

* CHANGE THE 

* FORMAT OF 
.X* THE CONSTANTS 


ADJUST 
POINTER AND 
LOCATICN 
COUNTER 


F3 *. 
.•ELEMENT*. 
YES .* FORKED UP * 


»**#*F5****«*** 

* TAKE OFFSETS 

* FRGM OFFTAB 

* AND 

* INSERT THEM 


»*G2»«**«** 

GENERATE 

THE 

CFFSET-HW 


*##**G3*»****** 
* TAKE OFFSET 
« AND BASE 
.* REGISTER 


*##G5******* 
PUT THE 
CONSTANTS 
BEHIND THE 
TEXT 


CHART CH. IJXG15 


GENERAL CHART 
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CHART 



*A3****« 

IJXG15 


*C3***« * 
POU=BO 
PO1=61 


IJKGI 
READ TEXT 
INTO 
B1 


IJKGI 
READ TEXT 
INTO 
B2 


SUPERVISE 
THE INPUT 
BUFFERS 


END-X KEY 
*CT** 


G3 *. 

* TEST * 
BYTE AT 
POI 


MACHINE--INSTR. 


ASS- 


INSTR. 


.RR-INSTR. 

X 

*J2***««***** 
LOCC+2 * 


*4*t*H4********** 

* BRANCH TO * 

* THE CORRES- * 

* PONDING * 

* SUBROUTINE * 
*VIA BRANCH TABL* 
***************** 


-ELSE 

X 

*****J3******* 
* L0C0+4 


.SS-INSTR. 

X 

*J4********** 


**K2******* 

MCC 

*-PUT-THE~* 
ELEMENT 
INTO OBUF 


PUT THE 
ELEMENT 
INTO OBUF 


Cl. AJXG15 


V 


IJXG15 (1) 
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♦••C2******** 
LQAC RY 
WITH THE 
HW AT PCI+1 


**D2******* 
CLEAR THE 
WORD AT 
OPEN 


GET OFFSET 
ANC CONSTRUCT 
OFFSET-HW. 


CONSTRUCT 
THE OFFSET- 
HW. 


< 


i3* '*. 

B4 *. 

****»B5 *■»*«* 

*•*#* 


.* 18-OR *. 



-KPY AT * . NO 

.* 1G— KEY *. NC 

* RY = U 

* 

POI -» . 

...X*. .*. 

. . . X* 

* 




* 









•YES 

• YES 



X 




. *. 

X 

X 



PUT THE 
ELEMENT 
INTO OBUF 


E A *. 

SSS=0 


•FA***** 

SSS=G 


CONSTRUCT 
THE GFFSET- 
HW. 




CHART CJ. IJXG15 


IJXG15 (2) 
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B3 ♦ . 
SW=0 


***C3******** 
MOVE THE 
ENDKEY INTO 
OBUF 


TRANSFORM 
THE CONST. 
OF STATIC ST 


********** 


*C4**«* 
SW = 1 


I JKPT 
POINTW T 
WITH 
OFFNOTE 


* IJKPC * 
♦PUT LAST TEXT- 
REC. ONTO TEXT- 
* OUT-MED ♦ 


D3 

BN= 


♦♦♦El******* 

R1 =TS 
R2=ZTABQ7 


******** 


FI ♦. 

BN GT M ’*. NO 


*F2♦♦♦** 
RO = BN 
BN=0 


X 

#***E3********* 

PUT THE 
CHARACTER 
STRING BEHIND 
THE TEXT 


**F3****« ** 

* IJKPO * 
♦PUT LAST RECORD* 

♦ ONTO TEXT * 
♦OUTPUT -M. * 


»G1**** 

RQ=M 

BN-M 


ZTIN 

READ NEXT 
OFFTAB-REC 
♦ INTO TS 


X 

♦♦G3****** 

IJKPH 

REWIND I 
AND 

SWITCH 


X 

**H2*«»«*** 
♦ IJKPH 

REWIND 
AND SWITCH 
♦TEXT-MEDIA 


X 

«***H3«*****»* 

EXTAB 

PUT EXTAB 
FROM SYS201 
ONTO T EXT CUT 


IJKNT 
NOTE I 
STORE INTO 
♦ ZTAB19 


IJKNT 
NOTE 0 
STORE INTO 
♦ ZTAB18 


*J5***«*** 
END 


CHART CK. IJXG15 


IJXG15 (3) 


V. 
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< 


«**A3**** 

OBRA 


C3 *. 
.♦OFFSET *. 
* PRESENT 


*C4****» 

RETURN 


***D3******* 
PUT OFFSET 
INTO RX 


E3 *. 
*RX LT 12K* 


**E4****** 
SUBTRACT 
12K FROM 
RX 




< 


X 

H4 


X 

^G3****.^ 
RX LT8K 


**«*G4********** 
INSERT X2G83 * 

INTO THE * 

BYTE AT * 

PO1+3 * 


INSERT X07 
INTO THE 
BYTE AT 
PO 1 + 3 


*»«H4********* * 

R1 =7 * 

RY = 9 * 

MODIFIER IN *X... 
WMO+2 * 


EVALUATE 
THE FINAL 
OFFSET-HW 


«*J5***« 

BRG1 


*********** 


*K2****« 

RETURN 


MOVE THE 
OFFSET HW 
INTO OBUF 


MOVE THE 
ELEMENT 
INTO OBUF 


c 

CHART CL. 1JXG15 OBRA 
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CHART 




*A1 ***** 
CCAL3 


**Aj******* 
DCX 


**B3***» *** 
LOCO PLUS 
LENGTH L 



- 



X 

****** ** 

WORK UP * 

************* 

X 

*****C3********* * 

* LL=B3— POI * 

* R1=L+A * 

**C4******* 

* ISU * 

*-*-*—*-*-***—* 



* INPUT * 


X 

*D1********* 

RETURN * 

X 

D3 * * "* . 

^-**L+4 GT LL**- YES 

* R1=LL * 

...X* L-LL *. 

**D3******* 

* MCO * 

....X* MOVE THIS * 


.* .X* L-LL *.X* MOVE THIS * 

.* * * * part INTO * 

.* * * * GEUF * 

*. . * ***************** *********** 

*NO 


MOVE THE 
ELEMENT 
INTO OBUF 


•***F3********* 
RETURN 

*************** 


CM. IJXG15 


DCAL3 t DCX 
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c 


*A3***» 

DSL 




*bl* **** 

LOCO+4 


B2* *** 
R1 =4 


**E3*»****»«** 


HW AT 
PDI +2 = 
FFFF 


**B5 * * * * 
LGCG=o 
R1 =6 


******* 


********** 


PUT THE 
ELEMENT 
INTO OBUF 


**D2******** 

RETURN 


**C5****** 
MOVE THE 
LEVEL TO 
LEVS 



c 



CHART CN. IJXG15 


DCF,MULTI,DSL,PROCE 
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/T 



*A1***** 

DCSTA 


* PREPARE THE 

* DCA-MASK 

* AND INSERT 
♦PROGRAM LENGTH 


*B4***»* 

RETURN 


LOCO+4 
POI=AMA 
R1 =10 


*****03******* 

* INSERT THE 

* SEGMENT 

* NUMBER OF 
*THE BRANCH IN 


MOVE THE 
♦ELEMENT INTO 
* OBUF * 


*«»D3******* 
INSERT THE 
SEGMENT 
NUMBER OF 
THE LABEL 
INTO RX 


#E1***** 

RETURN 


X 

E3**‘*. 
RX =R1 


«**•*E4*******» 

* INSERT 

* X30000a 
.X* AS MODIFIER 


F3 *. 

*I*RX -R1 GT 1* 
*‘*N0 


***F4******* * 
INSERT 
X3GGC82 
AS MODIFIER 


***G2******** 
INSERT 
X300023 
AS MODIFIER 


NO .*RX-R1 LT -1*. YES 


**»F5******** 
INSERT THE 
OFFSET INTO 
OFEN+2 


*«*«*G5******** 

* Rl=7 

» RY=12 

* MODIFIER IN 

* WMG+2 


PUT ELEMENT 
AND OFFSET 
INTO OBUF 




»J5***** 

RETURN 


/iT 

V 


CHART CO. IJXG15 


AOD,DCSTA 


4oo 























( 


***B2*«****« 
INSERT THE 
NAME INTO 
REN. 

R1 =7 


C2 *. 

.* BIT3 *. 
OF KEY AT 
POI+2 CN 


C3 *- 
E-KEY NO 


***C4******* 
LOAD THE 
MODIFIER 
FROM POI + 5 
INTO RX 


***C5 ******* 
CHANGE THE 
KEY AT 
POI+2 TO 


( 


PUT THE 
ELEMENT 
INTO OBUF 


* E1 ***»* 

RETURN 


*F1»**** 

RETURN 


02 *. 

.* BIT7 *. 
NO . * OF KEY AT 
...*. POI+2 CN 


FETCH 
OFFSET IF 
PRESENT 


F2 *. 
YES R1=0 


** *G2 ******* 

INSERT THE 
BLOCK OFF¬ 
SET INTO 


FETCH THE 
OFFSET IF 
PRESENT 


E3 

R1=Q 


***F3******** 
INSERT THE 
LENGTH OF 
THE PROGRAM 
INTO RX 


**G3****»»* 
INCREASE 
RX BY THE 
OFFSET AT 
OFEN 


****G4******** 
ADD THE 
MODIFIER 
AND CHANGE 

key to xaioa 


PUT THE 
ELEMENT 
INTO OBUF 


****H5******** 
MOVE THE 
RIGHT MOST 
3 BYTES OF 
RX INTO OBUF 



J X 

* RETURN 


c 

CHART CP. IJXGI5 OCA 


4ol 




























*A2***» 

ocsa 


*B2 ***** 
SWITCH 
SWC=1 


INSERT THE 
NAME INTO 
REN 


*B4***** 

SWITCH 

SWG=Q 


FETCH THE 
OFFSET IF 
PRESENT 


D3 * 
R1=0 


*«E3*«**** 
PREPARE 
THE DC A— 
MASK 


••««F3«***«*** 
DETERMINE 
THE NUMBER 
OF THE 12K- 
SEGMENT INTO 
RX 


*G1#**** 

RETURN 


MOVE THE 
MASK INTO 
0 BUF 


INSERT THE 
OFFSET INTO 
THE 

OCX-MASK 


*J2*«*** 
RETURN 


INSERT THE 
BLOCK NAME 
INTO THE 
DCA-MASK 


*»**K1* 

INSERT 
LENGTH A 
INTO CCX-MASK 


K2 *. 

YES .** SWG=0 


PUT THE 
ELEMENT 
INTO OBUF 


ADD MODIFIER 
AND 

OFFSET 


CHART CQ. IJXG15 


DC LASS * DCSG 




4o2 




























*A1***»* 

EXTAB 


»**B1******* 

TAKE THE 
NUMBER OF 
EXTAB-REC. 
INTO R3, 

R4 = BC 


**B4******* 
LOAD THE 
NAME INTO 
REN, 

R1 =5 


**C1*** **** 

R1 =R4 

R2=ZTAE04 


*C2****» 
R4 = 60 


FETCH THE 
OFFSET IF 
PRESENT 


ZTIN 
READ AN 
EXTAG-REC. 


D2 *. 
R4 = B0 


*D3»**** 
R4 = B1 


* IJKPC 
PUT THE 

* RECORD 
CNTO TEXTCUT* 


DETERMINE 
BASE-REG. 
INTO RY 


c 


♦*F3**** 

GGA1 


**F4******* 
CHANGE 
THE KEY 
AT POI TO 
X2102 


* IJKPC 
PUT THE 

* RECORD 
ONTO TEXTCUT* 


**G3»****' 
CHANGE 
THE KEY 
AT POI " 
X3183 


TC 


MODIFIER 
INTO HW AT 
WMO + 2 


*H2* **** 
RETURN 


EVALUATE 
FINAL OFFSET 
HW. 


PUT REST 
OF ELEMENT 
* INTO OBUF 


MOVE OFFSET 
INTO 
OBUF 


*K5«**** 

RETURN 


c 

CHART CR. IJXG15 EXTAB.OGA 


4o3 


































**B2* 
MULTIPLY 
REN BY 3 


♦**B5»****** 
SAVE POI 
PCI=0FEN+2 
R1 =2 


MOVE THE 
ELEMENT 
INTO OEUF 


C2 *. 
♦OFFSET * 
PRESEfvT 


***C3******** 
MOVE OFFTAB 
ENTRY TO 
OFEN+2 
(L = 2) 


MOVE THE 
OFFSET INTO 
* CBUF * 


* ********** 


»E3***** 

RETURN 


*•*«•••******* 


***E5***** 

RETURN 



CHART CS. IJXG15 GEO > MOK 


4o4 
















c 


***-*A3********* 

ROFF 


X 

«***»B3 ********** 

* INSERT THE * 

* SUM OF * 

* OFFSET AND * 

* MODIFIER * 


* INTO OFEN+2 * 




( 



CHART CT 


IJXG15 


ROFF 


4o5 






BAS 


ff'" 

v_. 


»***C2*«**«*** 
INSERT THE 
ATTRIBUTE 
BYTE INTO RY 
AND SRL BY 6 


SUBROUTINE 
2 FRON 
RY 


■****B4***ft***»* 

* RETURN * 


##**»Fi** p **iJ*** 


RY = I3 




NEGATIV 




X 

.*ZERO 
F3 *. 

.** BLOCK NO 

«. LEVEL=3 

* **YES 

G3 * 

* RY-10 


■*#■»**#■#■»***•»*■»**■» 


X* RY = 11 



■»**«•* F 4*** ******* 
X* RY=13 * 



CHART CU. IJXG15 


BAS 


c 


4o6 























CHART 


*** »A2*»** 
TRAN 


**B2 ****** 
GENERATE 
A LABFL 
X FFFF 


***C2***»««* 
INSERT THE 
NUMBER DF 
CCNTAB-REC. 
INTO CN 


D2 *. 
CN GE 2 


#03***** 

RO=CN 

CN=.') 


X 

***E3******* 

PSC=B1 

R1=B1 

R2=ZTABG8 


ZT IN 

READ CONTAB 
INTO IBUFS 


X 

**G3******* 
ISCR 

SUPERVISE 
THE INPUT 
BUFFERS 


*‘*N0 

***** 



CV. IJXG15 TRAN < 1> 


4o7 

















CHART 


/f— 

V- 


***B2******* 
INSERT THE 
NAME INTC 
THE LABEL- 
MASK 


PUT THE 
LABEL INTO 
* THE GBUF 


C3 *. 

. * TEST * 
.* BITS 0,1 
...*. OF ATTR. 

BYTE 


DCAQ.RCCV 


*F2»*** 

R2=L 


E3 *. 
.* TEST * 
BITS 6,7 
OF ATTR. 

. BYTE 


YES .*OPTIMIZABLE*. 


»****E 4******** 

* PUT CC INTO 

* THE SECOND 
X* BYTE OF THE 

* DCA-MASK 


***«*E5********* 

* INSERT 

* NAME AND 
.X* MODIFIER 

* INTO DCA-MASK 


TAKE OFFSET 
ANDCCNSTRUCT 
DCA AND DCX 


*G1»*** 

R2=8 


G2 *. 
.•DOUBLE-*. 
YES .*WORD BOUND 


G3 *. 

.* WORD- *. 

NO .* BOUNDARY *. YES 


*G4***«* 

R2=4 


*G5****» 

LCCG+8 

PSC+9 




*H1****** 
BOU 

SET-LOCO* 
ON BOUN¬ 
DARY 


**«**H2 ********* 

* PSC+5 

* LOCC+L 
X* POI=DCXMA 

* Rl=4 

**************** 


**J2******« 
MCO * 
*-*-*-*-*-*-* 
PUT THE 
DCX-MASK * 
INTO OBUF * 


PUT THE 
CONSTANT 
INTO OBUF 


CM. IJXG15 


TRAN (2) 


{T 


4o8 






















< 


****B3********* 
INSERT THE 
NAME AND 
THE MODIFIER 
INTO DCA-MASK 


*C3*»** 

R2=4 


SET LOCO 
ON BOUN¬ 
DARY 


***E2******** 
PUT CB INTO 
BYTEI OF 
DCA-MASK 
AND 10 INTO 
BYTE 2 


E3 *. 

.* TEST *. 
ONE .* BIT C OF 
-». ATTR. BYTE 


c 


x 

**«F2******« 
INSERT THE 
MODIFIER 
INTO THE 
DCA-MASK 


X 

««G2******* 

* MOO 

PUT THE 
DCA-MASK 

* INTO OBUF 


***««H2***** 

* LOCO+4 

* PSC+S 


***F3******** 
PUT CA INTO 
BYTEI OF 
DCA-MASK 


G3 *. 

.* TEST *- 
♦BITS 6,7 OF*. MIXD 
ATTR.BYTE .*. 


***H3******** 
INSERT El 
AS KEY INTO 
DCA-MASK 


G4 *. 

.* TEST *. 
* BIT6 OF 
ATTR. BYTE 


***H4******** 
INSERT 11 
AS KEY INTO 
DCA-MASK 


***G5******* 

PUT CD 
INTO BYTEI 
OF DCA- 
MASK 




****-*H5 ******* 

* SET POI TO 

* INITIAL 

* ADDRESS OF 

* DCA-MASK 


SET POI TO 
INITIAL 
ADDRESS OF 
DCA-MASK 


TAKE OFFSET 
AND 

CONSTRUCT DCA 


INSERT OFFSET 


c 

CHART DA. IJXG15 TRAN (3) 


4o9 

























' N 


INSERT 2C 
AS KEY INTO 
THE MASK 


♦♦♦Dl♦♦♦*«♦♦♦ 
INSERT 11 
AS KEY INTO 
THE MASK 


♦♦♦♦*£!♦♦*♦♦ 
* PSC+9 


C2 *. 
0CVL3 


D2 ♦ . 

.* TEST ♦ . 
♦BITS 6,7 CF*. 
ATTR.BYTE . 


•***E2**»»**»» 
INSERT El 
AS KEY INTO 
THE MASK 


YES .*OPTIMIZABLE*. NQ 


.♦WORD-BOUND ♦. YES 


**C5**»* 
R2 =4 


C2 


♦*E4*** 

R2=8 


♦♦E5**»*«* 

60U 

SET LOCO 
ON 

BOUNDARY 


TAKE OFFSET 
AND INSERT 
IT 


CHART DB. IJXG15 TRAN (4) 


V. 
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( 


.* TEST *. 
.•RIGHT MOST 
.X*. Hki OF LOCO 


.* TEST *. 
•RIGHT MOST *. 

BIT OF -*X. 
*. LOCO .* 


••••C4********* 

SUBTRACT A 
VALUE MADE UP 
OF THE RIGHT 
MOST HW OF 
LOCO FROM R2 


••D4******* 
INSERT R2 
AS LENGTH 
INTO THE 
DSL-MASK 


**D5****** 
L0CC+R2 
R1 =4 

POI=DSMA 


E3 *. 

.* TEST *. 
ZEROS .*RIGHT MOST 

.* - 3 BITS OF 

*. LOCO 


*»***E4********* 

* SUBTRACT A 

* VALUE MADE UP 

* OF THE RIGHT 
•MOST 3 BITS OF 

* LOCO FROM R2 


PUT THE 
MASK 

INTO QBUF 


CHART DC. IJXG15 
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^4 X 

( 


TAKE THE 
LENGTH L 
INTO R1 

************ 


EVALUATE 

LL-BB-PSC 

POI=PSC 


03 *. 

L GT LL 

’*N0 


**CA********** 
R1=L-LL * 




MOVE THIS 
PART INTO 
GBUF 


MOVE THE 
ELEMENT 
INTO OBUF 


RETUR.N 


V, ... 

CHART DD. IJXG15 M0K1 


412 












c 


*A3***» 

ISCk 


.* PSC LT B2 *. YES 


c 


MOVE FROM 
B2 TO B1 
WITH BUFL 


ZT IN 

READ NEXT 
CONTAB-REC. 
* INTO B2 


***E3******* 
NUMBER OF 
CONTAB-REC 

-1 t 

PSC-BUFL 


*F3***»* 

RETURN 


c 

CHART DE. IJXG15 ISCR 
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***A3********* 
BRG 

************** 


LOAD THE * 

NAME INTO * 

REGISTER * 

REN * 

************** 


*****C3****** 


FETCH OFFSET * 
IF * 

PRESENT * 

**************** 


****E4*-»*** 

RETURN 


X 

****F3******* 
POI + I 
INSERT 88 
INTO BYTE 
AT POI 

***•••**•«*** 


•«G3******* 
INSERT 10 
INTO BYTE 
AT POI+4 
AS KEY 


****H3********* 
RETURN * 
*************** 


V, 

CHART OF. IJXG15 BRG 


414 












( 



t 

CHART DJ. IJXG17 PHASE DESCRIPTION 


415 












/f 


*A1***** 
IJXG17 


READ NEXT 
ENTRY OF 
FILET.INTO 
FLSP1 



**** * *YES 

* A2 * l 



* **N0 

* A4 * 


X 

*««*«B1********** 

X 

*****B2******* 



X 

*****BA******** 

** 

X 

*****£5 ** 


A10 = ADDR. 
OF 10 AREA = 
BUFF.ADDR+ 
6*BUFF.LNGTH 


* RF=R I=ACCR. 

* OF WORK AR = 

* (AIOJ-BUFF.L. 
*(SAVE)=BUFF.L. 


SET 

SWITCH 
(FOR EXIT) 


READ 1ST 
ENTRY OF 
FILET.INTO 
* FLSP1 


REWIND 
TXT OUT 
(EXT. NAME 
* TABLE) 


READ 1ST 
REC.OF EXT. 
N.T.INTO 
* 10 AREA 


WAIT FOR 
FILE TABLE 
READING 


FLSP2=FLSP1 
(MOVE INTO 
WORKSPACE) 


.* FILE *. 
*. IN FLSP2 
IS.FOR PRESENT 
*.PHASE.* 


*RE=ADDR.OF MASK* 

* IN ACCORDANCE * 

* TO FILE * 
♦CHARACTERISTICS* 


WAIT FOR 
EXT.NAME 
TABLE 
READING 


MOVE RECORD 
FROM IC AR. 
INTO WCRKAR. 


READ NEXT 
REC.OF EXT. 
NAME T.INTO 
* IC AREA * 


*****C3********* 

* SET BIT IN 

* COMM.REG. TO 

* CONTROL CALL 
*0F NEXT PHASES 


NAME 

NOT FOUND 
. (FILE - 
*PARAM.)* 


FILL OUT * 

MASK ACC.TO *X... 
FILET.ENTRIES * 

(IN FLSP2) * 


* REPOSITION * 
♦POINTER TO READ* 
♦NEXT NAME FROM * 
♦BEG.OF WORKSP. * 


BUFFER L.=80 


D3 *. 

SWITCH **. SET 


R I =RF 
(RESTORE 
POINTER) 


*****£ 4* 

* BUILD ENDC. 

* IN MASKI 

* RE =MASK1 

* BUFF.L.=8C 
************** 


* INT.N.-S *. NC 
IN FILE AND .*... 

• EXT. N. TABLE* 

♦COINC..* 


INSERT EXT. 
NAME INTO 
MASK OF 
ESD CARD 


*****H3******** 

* PROCEED TO 
X* NEXT NAME 

* ENTRY 


CALL NEXT * 

PHASE ACC. * 

TO COMM. * 

BITS SET * 

*************** 


***J4**** 
EXIT 


*»«G5***** 

ENTRY 


WRITE CNE 
REC. FROM 
(RE) ONTO 
TXTIN 


«***aJ5******«* 

* RE=RE+80 

* (STEP OUTPUT 

* POINTER) 


♦Kl****** 
RD =RD-1 


«K5**** 

EXIT 


r 


CHART OK. IJXG17 
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**-»A2»*«*« 
IJXG20 


**** *B2* *•»****•» * 
♦INITIALIZATION 


MOVE 

BLOCKTABLE 
INTO TABLE- 
SPACE 


PUT 

LA8TAB 
ONTO TXTIN 


E2 

EXIST 

FILES 


c 


♦ YES 


GET NEXT 
CARD OF 
THE FILES 


X 

G2 * ** * 

ESD- 

CARD 


♦ NC 


H2 ♦. 
TXT- 
CARD 

* *NC 


J2 ♦. 
RLD- 
CARD 

NC 


PUT THE 
TXT-CARDS 
ONTO SYSOOl 


PUT THE 
CARD ONTO 
SYSOC1 


PUT THE 
CARD ONTO 
TXTOUT 


PUT THE 
CARD INTO 
♦ TABLE-SPACE ♦ 
OR ONTO TXTIN 




PUT THE 
RLD-CARDS 
ONTO SYSOOl 


PUT THE 
END-CARD 
ONTO SYSOOl 


CHART DP* IJXG20 


GENERAL FLOWCHART 
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CHARI 


/T" 

I... 

V. 


**»A2***«* 
IJXG20 


•INITIALIZATION 


ZTIN 

READ BLCCK- 
TABLE IN 
•TABLE SPACE* 


MOVE LABTAB 
FROM SYSOOl 
ONTO TXT IN 


POINTS 

REWIND 

SYSOOl 


* LOAD NOTE- 

* INFORMATION 
•OUT OF KSAVE 8 


IJKPT T 
SET SYSOOl 
TO END OF 
• DTFTABLE 


•INITIALIZATION 


LOAD NOTE- 
INFORMATION 
OUT OF ZTAB18 


STORE THE 
NOTEINFORM 
INTO NOTEX 


* IJKPT 0 * 

• SET TXTOUT * 
•TO END OF EX-* 
TERNAL NAME TAB 


LOAD NOTE- 
INFORMATION 
OUT OF ZTAB19 


• IJKPT I 
SET TXT IN TO 
•BEGINNING OF 
* THE FILES * 


BUFSA=IJKBML 
IJKMBL= 8C 
RA- C 

REG1= 80+80 


DQ • IJXG20 


MAINROUTIN€ 1 
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c 




c 

CHART DR. IJXG20 MAINRGUTINE 2 
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CHART 


,1T" 

V..- 


**D2***«* * 
REG1= EG 


(85)=POUS 
LENGTH = 

1 BYTE 


***H2***«*«* 
REG1= NCTE 


IJKPT I 
SET TXT I N 
TC BEGIN CF 
* LABTAB « 


DS. IJXG20 


MAXNROUTINE 3 


4 2o 















c 



SET TRANSFER 
BIT CF ZTAB13 
TG ZERC 


SET TRANSFER 
BIT CF ZTAB2C 
TC ZERC 


( 


***** E2 ********** 
* B1=B0+IJKMBL * 



RETURN 



CHART 01. IJXG20 


INI I 


421 







CHART 


**««A2***«***** 

* INI 2 * 




* B 3=BQ+IJKMBL « 



* TSB=IJKMTS * 

* +128 * 


X 

*****E2******»*#-» 
* * 

* BB=BA+32C * 




RETURN 


SET BUFFER- 
LENGTH IN 
ZTAB16 TC 320 


SET TRANSFER 
BIT CF ZTAB16 
TC ZERO 


X 

*»»«»H2********** 
* SDNC=G * 




DU. IJXG20 INI II 
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c 


*A2****« 

LABTAB 


* IJKNT I 
NCTE BEGIN 
♦OF LABTAE CR 
END CF FILES* 


STORE NCTE- 
INFORAMTION 
INTO NCTE 


R3=NUMBER 
CF LABTAB 
BUFFERS 


F2 * 
R3=0 


■»**F3***** 

RETURN 


* ZTIN * 

* READ LABTAB * 

* INBUFFER * 
POINTED TC BYRA 


J2 * 
R3-1 
= 0 


BA *- 
RA= BO 

*‘*NC 


*C4* 

RA = BO 


*»«*DA****** 


*C5***»* 
RA= B1 


* ZTIN 

* READ LABTAB * 

* IN BUFFER * 
POINTED TO BYRA 


**#F4*«****«« 
R1 =B1 


* ZTIN * 

* READ LABTAB * 

* IN BUFFER * 
PGINTED TO BYRA 


•***F5«******««* 
R1 = Bo * 


IJKPI 

PUT RECORD 
ONTO TXTIN 
* FROM BI 


IJKPI 

PUT RECORD 
CNTC TXTIN 
* FROM BO 


**«J5***«* 

RETURN 


IJKWT T 
WAIT FOR 
END OF READ 


IJKPI 

PUT RECORD 
ONTO TXTIN 
* FROM RA 


IJKNT I 
NOTE END 
OF LABTAB 


STORE NOTE- 
INFORAMTI ON 
I NTC NOTE1 




CHART DV. IJXG20 LABTAB 
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CHART 


y^ 


****A2*««*»**** 

* ESD * 

*************** 


X 

B2* ** *. 
.**C C BO+24)* 

***. = sd 


YES 


>«**B3***««•«**• 
SONO= ESID * 



* RX = C(BO+10) * 

* 2 BYTES * 



.C (BO+14)=ESID * 


*F2*«**«* 

RETURN 


V. 

OW. IJXG20 ESD 
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CHART 


*A2*«** 

MCCK 


**B2»***»*« 

NQS=N0S+1 


»*«*«[) 2 **•»*«*#* # 
* C (Rl+76)=NCS 


****»E2********* 
*C (CSP)= C(R1) 


*****F2***»««* 
* CSP=CSP+8C 


«»««»G2******«'* 
* P0US=PCUS+1 


H2 

CSP = B 


LOAD 

PARAMETERS 

(ZTAB16) 


*J2«**** 

RETURN 


ZTQUT 
WRITE THE 
RECORD FROM 
* BA * 


•**»*H5***** 

* CSP=BA 
X* 

* P0US=0 


* IJKWT T 
WAIT FOR 
*END OF WRITE 


***K5***** 

RETURN 


DX. IJXG20 MOOK 


425 
















CHART 


/T" 




RY=RY+8 


*-st-**«**«-«**•*«*** 


**C2****« 

R1=BC 


**»*D2******** 
RX=C (Rl+10) 


*RZ=C (Rl + RY+16J * 


C3 

*C (R2+20J* 

. =xaoia . 

" *NQ 


03 *. 

RY^RX 


«E3»******** 
RETURN * 


4* -**■»** 

X* R2=RY+R1 


C (R2-H6) *. YES 
. =X3012 .** 


*E4**«**« 

RY=RY+4 



*C (R1+RY=16)=RZ* 


* 2 BYTES * 



* * 

* C(Rl+18+RY)= * 

* SDNO * 

* 2 BYTES * 



* R2=RY+R1 


* B3 * 


DY. IJXG20 RLD 


x 
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CHART 


* MCR 


Rl=SPEI+80 


C2 *. 
*!* R1 GT BO 


«C5***** 

R2 = BP 


* IJKNT I * 
* NOTE CURRENT 
PLACE IN FILES* 


STORE NCTE- 
I NFORMATICN 
INTO NCTEFILE 


* SPEI=SPE1+80 


LCAD NCTE- 
INFORMATICN 
CUT CF NCTE1 


*H2***»* 
SWI= 1 


* LOAC NOTE- 
X* INFORMATION 
•OUT OF NOTERLD 


OZ. IJXG20 


MOR I 
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CHART 


/fT" s 

i' 


*EA * 
* B2* 


I JKMBL =1920 


R 3=TSB 


*****D2***»«« 
* RZ=ZEHLS 


•*»E2***** 
R1 =R3 


I JKWI 
WRITE A 
RECORD GN 
TXT IN 


* I JKVlT I 
WAIT FCR 

• END OF WRITE 


•****H2***«*«* 

* R3=R3+1920 

* RZ=RZ+I 


***J2* 
RY=SPEI-R3 


..*. RY LE 1920 


*C4****» 

R1=TSB 


RY =RY+TSB 


* SPEI=RY 


•MOVE RLD-CARDS 
* INTO TABLE- * 
* SPACE * 


••H4******* 

IJKNT I 
NOTE FOR 
CURRENT RLD 


**««* J 4* ■**«■*■***** 

a STORE NOTE- * 

* INFORAMTION * 

* INTO NOTERLD * 


* LOAD NCTE- 

* INFCRMAT ION 

* CUT OF NOTEFILE 


* IJKPT I * 
SET TXTIN TC 
•CURRENT POINT* 
* CF FILES * 


••D5******* 
I JKMbL = 8U 


**E5****** 

ZEHLS=RZ 


XT’ 

V. 

EA. IJXG20 MGR II 
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c 


LCAD NCTF- 
INFCRRATICN 
CUT OF NCTEX 


IJKPT C 
SET TXTCUT 
TC BEGIN CF 
* TXTCARCS 


I JKGC 

READ A TXT- 
CARD IN B1 


***««F2***** 
* R1=B1 


f'CVE THE 
CARD INTC 
CUTPUT BUFFER 


*H2 ** * »** 
RZ=RZ-1 



( 

CHART EB. IJXG20 TXT SYS 
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****A2 


CHART 



*****B2***** 
* RA=TSB 


*****C3****** 
.X* IJKMBL=192 


WOVE THE 
CARD INTC 
OUTPUT BUFFER 


**62****** 
RA=RA+ 80 


***D4***** 

R3=RA 


* LOAD NOTE- 

* INFORMATION 
♦OUT OF NOTERLD 


IJKPT I 
POINT TO 
CURRENT RLD 


**G4* 

RZ =ZEHLS 


*«*H3**»«*»* 

R3=R3+192G 


.X* RA=SPEI-R3 * 


** J 3* 

RZ=RZ+1 


* IJKWT I * 
WAIT FOR * 
♦END OF WRITE * 


IJKWI 
WRITE A 
RECORD ONTO 
* TXTIN * 
*********** 


EC, 


IJXG20 


RLDSYS I 


jr 

V_. 


43o 
























* £C* * 

* E2* 


*CI **«■■** 
F.l =TSB 


c 


■»«**F1*****» 

RZ=RZ+1 


»*#G1******* 

LAST CARC = 0 


LOAD NOTE- * 
INFORMATION *X. 
OUT OF NOTE1 * 


* IJKPT I * 

* POINT IN * 
FRONT OF RLD-CA 
* RES * 


*63* » * * * * 
RZ=RZ~1 


C3 *. 
RZ - v 

*NO 


• IJKRI * 
READ A RECORD 

* FROM TXT IN * 
* TO TSB * 


N = 24 


***B4***** 

RETURN 


. * YE S 
C 4 *. 

ZWI -1 


**B5***«* 
ZWI = 1 


*C5****** 

RZ=RZ+1 


* IJKWT I 
WAIT FOR END 

* OF READ 


*H2* 

M=N~1 


*+ JZ* 

RA=RA+80 


MOVE A 
RLD-CARD 
INTO OUTPUTB 


* IJKRI * 
READ A RECORD 

* FROM TXT IN * 
* TO TSB » 


***F5 ******* 
N=LASTCARD 



CHARI ED. IJXG20 


RLDSYS II 
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IJXC-25 


X 

*ET * 


BLOCK 

NUMBER 

=0 


**G1««**** 

ERCAL 

ISC ER 
FOR FILE 
NAME 


X 

**H1«***«* 

SKIP 

SKIP TO* 
THE NEXT 
ENTRY 


GET LENGTh 
OF SECTION 
PROGRAM* 
STATIC STOR 


ESD LD 
FOR SEC. 
ENTRY POINT 


ESO ER 
FOR EXT. 
PROC. 


ESD SD 
FOR 

PROGRAM 


CHART EH. IJXG25 


MAIN 
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i 


* L ENGTH= 
X* CONTENTS 

* OF BYTE 14 


ESD SO AND 
LD FOR 
STRUCTURE 


LENGTH= 
CONTENTS 
OF BYTE 10 


ARRAY *. YES 


* LENGTH= 

* LENGTH 

* MULTIPLIED 
*BY NUM. OF EL. 


ESD SD 
FGR THE 
VARIABLE 


CHART El. IJXG25 
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INIT1 * 

*«-**#*«**** 


IN,FP2 = 
ESBU+ 
2BUFFI 


MOVE 

INFP2 *20) 
TO INFO 


■**C2**«*« 

REC=2 


CLEAR 

ESENT 

!8f'] 


MOVE 
COLUMNS 
1-4 TO 
ESENT 


CARD 

COUNTER 

CAGG=1 


*****B4*****»+« 

* NI FIRST 

* 4 BITS OF 

* ZTAB16 


*-»**C4***** 

RETURN 


READ IN 
LABTAB FROM 
TXTIN 




LENGTH 
OF VAR. 
FIELD* 
BYLE=D 


EXEU2* 

EXBU1+ 

BUFFL 




LA EU1 = 
ES+ 
BUFFL 


L A EU2 = 
LABU1 + 
BUFFL 




«-»H2 * **-*-*•***«-* 


Eseu= 

LABU2 + 
BUFFL 


MOVE 

ESIDN TO 
ESENT + 14 


INFO* 

E5BU+ 

320 


CACN= 
CONTENTS 
OF INFO(1} 


******«*«* 


w. 


CHART EJ. IJXG 25 


INIT 1 
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CHART EK 


IJXG25 


GE TEX * GE TL A 




























*A1***** 
SCPRC 


MOVE 

EXT. NAME 
TO SVAR 


MOVE 

INT. NAME 
TO 0PT2 


MOVE 

OR IGIN =0 
TO SVAR+9 


MOVE 

TYPE = X GO 
TO SVAR+8 


MOVE 
ESIDN 
TO 0PT2+2 


MOVE 
LENGTH 
TO SVAR+13 


*E2**«** 

RETURN 


MAKE 

ESID 

ENTRY 


BUILD 

ESD 

CARD 


*J1****» 

RETURN 


/<' 

CHART EL. IJXG25 SOPRO.MESIO 
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*A1 ***** 
ESFIN 


END 

SWITCH 

—ON 


B2 * 
BYLE 


STORE 
BYLE TO 
ESENT+10 


X 

El"** 

BYLE 


=48 


c 


*G1***»* 

RETURN 


SVAR = 

A(ESENT+ 
16) 


MGVE 
CAGC TO 
ESENT+76 


INCREASE 

CARD 

COUNTER 


CLEAR 

ESENT+16 

(60) 


*K3***** 

RETURN 


CHART EM• IJXG25 


ESFIN 
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/fT" 


B1 * 
CACN 


**B3* 

PUT 


**C2****« 

CACN=0 


WAIT 

FOR 

SYSOQ1 


MOVE 

ESENT (60) 
TO 0PT1 




*F1********* 
RETURN * 


4 r 

v 

CHARI EN. IJXG25 ESMO 
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( 


MCVE 

TYPE = X 01 
TO SVAR+ f? 


MCVE 

F. SIGN =€01 
TC 

SVAR+13 


SEARCH 
LABEL IN 
LAETAE 


MCVE 

LOFFS TO 
SVA R + 9(3 ) 


MOVE ESC 
ENTRY TO 
OUTPUT 


MOVE 

OFFSET < 3 J 
TO SVAR+ 


MOVE 

LABU2 TO 
LABU1 


READ IN 
LA6TAB 
FROM TXTIN 


CHART £0. IJXG25 


LDSEC * LABS 
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( 0 ^ 


MOVE 

EXTERNAL 
NAME (8) 
TO SVAR 


*■» «■»»*»»#■»»* 


MOVE 
TV P E =2 
TO 

5VAR+8 


* MOVE 

* CRIGIN=0 

* TO 

* SVAR+9 


MAKE 

ESID 

ENTRY 


■&«*«**«#*******■** 


»«***■**■**«■ 


* RETURN * 



CHART EP. IJXG/5 ERCAL 
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( 


c 

CHART 


*A1* ** * 
SCLCS 


GENERATE 
NAME FOR 
STRICTURE 


MOVE 

GENERATED 
NAME TC 
SVAR 


MOVE TYPE 
CODE = X CO 
TO SVAR+8 


MOVE 

OR IGIN =0 
TO SVAR+S 


L ENGTH = 

( LENGTH OF 
STRUCT+?) 


MOVE 
LENGTH 
TO SVAR+ 
13 


MOVE 

EXT.NAME 
TO SVAR 


MOVE 

TYPE CODE 
= X 01 TC 
SVAR+8 


MOVE 

ESIDN TC 
SVAR+13 


MOVE 

OFF ST TC 
SVAR+9 


PRODUCE 

ESD 

CARD 


EQ. IJXG25 


SOLD S 
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'v,.- 


A(SVAR+8i 
-REGA 
TO REGC 


A(SVAR+2) 
+ REGC TO 
REGD 


MOVE 

EXT.NAME 
TO SVAR+2 
( 6 ) 


MOVE 

SVAR+2 (L) 
TO 0(REGD) 


A(SVAR+2) 
TO 

REGA 


PAD 

SVAR (L) 
WITH X 5B 


(SVAR+2) 

TO 

REGB 


•»***E3**+** 

RETURN 


REGA 
GT THAN 
REGB+6 


MOVE 

X 5B5B TC 
SVAR 


a r 

\ 

CHART ER. IJXG25 PAD 
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*A1***» 

SKIP 


••**«B1****** 

( **** 


* 

* INPT1= 

« 

* INPT1+20 

* 


* 




Cl *. **C2****** 

INPT1 “*. YES * WAIT FCR 

GT THAN .*.X* TXTCUT 

EX0U2- .* * MEDIUM 

*. 40 .* * 

* *N0 

IX .I 

X 

Dl’*'*. 

* *. «*»*D2****** 

INPT1 *. NO * 

GT THAN -«.X* RETURN 

EXEU2 .* * 

’ *YES 


•El***** 

REC1 = 1 





READ EXTAB 

-*-* 


FROM 



TXTOUT 



***G1******** 

RETURN 


CHART ES. IJXG25 


SKIP 
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MOVE I NFC 
TC 

INFP2120) 


STORE AODR 
OF ESIDTAB 
TG INFP2+4 


MGV'E ER 
ENTRY TC 
CARD 


* PUT OUT 

* LAST ESD 

* CARD 


SET BITPQ 
ON THE 
NEXT 
MASK 


****E3*«******* 


LOAD 

ADDR- OF 
LIBRARY 
NAMES 


*****H3»********* 




CHART ET. IJXG25 


LIBER, INIT2 
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**A1«*** 

ERLI 


******** 




•«**C1********* 

MOVE VARIABLE 
BCD PART 
TO SVAR+3 


ESIDN 
GT THAN 
255 


* RETURN 


MOVE 

TYPE CODE 
= X 02 TO 
SVAR+fi 


MOVE 

ORIGIN =0 
TO 

SVAR + S 


**D3******* 

SET ERROR 
BIT 4 IN 
IJKWC 


***E3******** 
CALL IJXG30 


X 

*F1****« 

MESIC 


*G1***«* 

ESFIN 


INCREASE 
AND TEST 
ESID NUMB. 


*J1****» 

RETURN 


CHARI EU. IJXG25 


ERLI.ESDI 
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CHART 


/T- 


«A3***** 

IJXG30 


«»B3****** 
SCAN THE 
PROGRAM 
STRING 


C3 *. 

*END-KEY*’*. YES 


***C4******** 
GENERATE 
THE RLD- 
CARD FROM 
SAVE BUFFER 


**C5**»*«* 
GENERATE 
AN END- 
CARD 


**DETERM1NE* 
THE FORMAT 


D3 *. 
.♦MACHINE*. 
YES .*INSTRUCTICN*. 


****»*Df>****** 
PUT ALL 
* CARDS ON 
SYSCO1 


****F2********* 
INSERT THE 
CORRESPONDING 
INFORMATION 
INTO THE 
TXT-CARO 


«*«E3*»****** 
DETERMINE 
THE KIND CF 
INSTRUCTION 


CALL NEXT 
PHASE 
IJXG40 


***G2******** 
ADJUST 
LOCATION 
COUNTER 
AND POINTER 


F3 *. 

.*ACDRESS*. 
CONSTANT *. NO 


***G3* 

PUT THE 
CORRESPOND. 
INFORMATION 
INTO THE 
TXT = CARD 


STORE CURRENT 
LOCATION 
COUNTER IN 
SAVE BUFFER 


***G4******** 
DETERMINE 
THE ESID-NO 
AND INSERT 
IT INTO THE 
SAVE BUFFER 


*F5******* 

END 


FH. I J XG30 


GENERAL CHART 
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< 


* A3*-**** 
IJXG30 


IJXGI 
READ TEXT 
INTO B1 
AND B2 


SUPERVISE 
THE INPUT 
BUFFERS 


c 


.* TEST * 
THE BYTE 
AT POI 


MACHINE X- INSTR- 
* F J * 


* MEX 
*-*-*INSERT-*-*- 
» THE CHARACTER 

* STRING INTO 

* THE TXT-CARD 


ASSEMBLER-.INSTR. 

X 

*****F3********** 

* BRANCH TC * 

* THE CORRES- * 

* PONDING ■» 

* SUBROUTINE * 
*V IA BRANCH VEC.* 


PUT THE 
TXT-CARD 
INTO OUTPUT 


*-*-*-*-#-« 


GENERATE 
THE RLD- 
CARDS 


**J2*****» 

GENERATE 
THE END- 
CARD 




NEWPH-G40 
REW=YES 
SWITCH=NG 


CHART FI. IJXG30 


IJXG30 m 
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CHART 




B3 *. 
.TEST THE*. 
* CODE BYTE 


RX-t RS—» SI- INSTR. 


* INSERT THE 

* REGISTERS 

* I NTC BYTE PCI + 


INSERT THE 
LENGTHS INTO 
BYTE AT POI+2 


INSERT THE 
INFORMATION 
INTO TXT-CARC 


***D4******* 
MOVE THE 
TWO. OFFSET 
HALFWORDS 
TO POI+3 


*E2****» 

POI+4 

LOC1+2 


* INSERT THE 

* INFORMATION 

* INTO TXT-CARD 
**************** 


X 

****F4***** 

POI+18 

L0C1+6 


FJ. IJXG30 


IJXG30 i 2 I 
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B4 


CHART 


RX-INSTR. *. YES 


* INSERT 
•REGISTERS INTO 

* BYTE AT POI+2 


•**B4**»**** 
MOVE THE 
OFFSET HU. 
TO POI+3 


RS-INSTR. *. YES 


INSERT THE 
INFORMATION 
INTO TXT-CARD 


**D2******* 
MOVE THE 
IMMEDIATE 
CONSTANT 
TO PCI+2 


* D 4* * * * * 
POI + 11 
10C1+4 



X 


FK ® IJXG30 


IJXG30 13! 
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/T ' 

I 

V.^ 


*A1***» 

INRE 


*A3»**** 

MEX 


* INSERT THE * 

* REGISTERS AT * 
*P01+2 AND PO1+3* 

* IN ONE BYTE * 

* AT POI+2 * 


****C1***** 
* RETURN 


.* DOES *. 

.*THE ELEMENT*. NO 
. .X*. FIT IN THE .*... 
. *. CARD .* 


INSERT THE 
ELEMENT 
INTO THE 
CARD 


INSERT AS 
MUCH OF 
THE ELEMENT 
AS POSSIBLE 


PUT THE 
CARD INTO 
OUTPUT 


***C5* 
INITIALIZE 
THE NEXT 
CARD 


CHART FL • IJXG30 INRE,MEX 


4 5o 












*A1 ♦ ♦** 
MCSC 


INSERT THE 
NUMEER OF 
INFORMATION 
EYTES INTO 
THE CARD 


«**C1««*«*** 
INSERT THE 
CARD- 
NUFEER 


***A4**«* 

MOKK 


.♦ REST ♦ . 

* OF SAVE- *. YES 
BUFFER GT 4 .♦_ 


* FCVE THE 4 

* BYTES(LCC- 
«C(jUNTER + ESI D- 

* NOi INTO THE 

* SAVE BUFFER 


X 

*C5***** 

RETURN 


*♦♦01 ♦♦♦*♦♦♦ 

MOVE TFE 
CARD INTO 
THE OUTPUT 
BUFFER 


*D2»*«*« 

RETURN 


IJKPC 
PUT T85 
RECORD ON 
TXTOUT 


El ♦ . 

'END-CARD *♦. NO 


♦RECORD FULL* 


c 


Z TOUT 
PUT LAST 
CARD-RECORC 
* ON SYSCOl * 


ZTCUT 
PUT CARD- 
RECORD CN 
SYSOOl 


*****E4**»****** 

* MOVE THE 

* REST OF THE 

* 4 BYTES TO 

* THE BEGIN OF 
♦THE SAVEBUFFER 


■»F4^**»** 

RETURN 


*G1 * 
RETURN 


*G2****« 

RETURN 



CHART FM. 1 JXG30 


MOSC fMOKK 
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CHART 



* SET SWITCH 

* OFF AND 

. X* CONTINUATION 

* BIT ON 


*****C2****««*»# 

* SET SWITCH 

* CN AND INSERT 
*THE RELOCATION 

* HEADER 


.X*. A BYTE CELL 


**C4 

INSERTT 

xaecaiNTo 

FLAG BYTE 




♦♦D3********* 
INSERT 
X3G83INTC 
FLAG BYTE 


INSERT THE 
LOCATION 
COUNTER 


********** 


*E4***»* 

RETURN 


c 


FN• IJXG30 ELQ 
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f 

****A2********* 

* VAX * 





< 


c 

CHART FO. IJXG30 MAX 
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AT 

V. 


♦***A2****« 
* RLDCA 


»**B2******« 
CHANGE THE 
TXT-MASK 
TC AN 
RLD-MASK 


*«*C2******« 

MOVE THE 
SAVEBUFFER 
FROM BO 
TO B1 


D2 *. 
•MORE THAN. 

* ONE SAVE- * 
RECORD LEFT 


* DETERMINE 

* THE BYTES 
*TO BE INSERTED 


.♦END-KEY*. 

.* AT POI *. 
.X*. .*X. 


INSERT THE 
BYTES INTO 
THE RLD-CARD 


*D5«««*« 

POI+4 


*********** 


I JKGO 
READ A 
RECORD INTO 
* BO * 


PUT THE LAST 
RLD-CARD 
INTO OUTPUT 


****F2********** 
SET POINTER * 
POI TC BC * 


**F4********* 
RETURN * 


.*YES 
G1 *. 

.*ENC OF * 
RECORD 
{POI=B1) 


*H1* 
POINTER 
POI+4 


DETERMINE 
THE BYTES TO 
BE INSERTED 


**•••*•***• 


INSERT THE 
BYTES INTO 
THE RLD-CARD 


CHART FP. IJXG30 


RLDCA 
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A4* 


( 


f 


r 

CHART FQ. IJXG30 INLE.EST 
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**A1 


**** A4^ 


*»fc*#Bl********* 

* STORE THE LO¬ 
CATION COUNTER 
*INTC THE FIRST 

* 3 EYTES OF 

* 4-E.STACK 


INSERT THE 
CONSTANT INTO 
THE TXT-CARD 


MOVE 1 INTO 
THE RIGHTMOST 
BYTE CF THE 
4 BYTE-STACK 
(AS ESID-NC) 


****D1******** 

ESI 

-*-FETCH-THE-* 
ESID-NC FROM 
ESID-TABLE 


MCVE THE 4 
BYTES INTO 
SAVE BUFFER 


«D4***** 

RETURN 


INSERT THE 
OFFSET INTO 
THE TXT-CARD 


*F2 ***** 
LOCI+3 
PCI+4 


X 

****G2********* 

* RETURN * 


CHART FR. IJXG30 


DCAL3 »DC X 
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«A3***** 

LABEL 


«Ad***** 

PRCCt 


*B1*»*** 

L0C1+L 


Cl 

L GT 8 
* * Y E S 


*C3****« 

RETURN 


*C^**«** 

RETURN 


PLT CURRENT 
T XT-CARD 
INTO OUTPUT 


D2 *. 

.* REST *- 
NO . *OF THE CARD* 
. GT LENGTH 


INSERT LOCI 
AS NEh START 
ACDRESS INTO 
THE TXT-MASK 


****E2******** 
INSERT L 
ZEROS INTO 
THE TXT-CARO 


♦E4**** 

DCF 


* FI***** 
PO1 + 4 


****F2»**»* 
POT +4 


* TAKE THE * 

* LENGTH OF * 

* DSA FROM * 

*THE BLOCK-TABLE* 


*G1*** ** 
RETURN 


*G2***«* 

RETURN 


*#»G4******* 
EXPAND THE 
HW TO A 
FULLWCRD 


INSERT THIS 
CONSTANT INTO 
THE TXT-CARD 


CHART F S. IJXG30 


DSL » DCF tLABELt PROCE 
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CHART 



**B2***«* 
INSERT 1 
AS ESID- 
NUMBER 


*****B3****»*«** 

* INSERT LOCI 

* INTO THE FIRST 

* 3 BYTES OF 

* THE 4 BYTE 

* STACK 


MOVE THE 
4 BYTES INTO 
SAVE BUFFER 


INSERT THE 
OFFSET INTO 
THE TXT-CARD 


***B4******** 

ESI 

*—*-FETCH-»—* 
THE ESIO-NO 
FROM THE 
ESID-TABLE 





RETURN 


FT* IJXG30 


DCA » DC V 
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IJXG31 


CHART 


CCBRES 

REWIND 

SYSRES 


COMMENT 
ONLY FOR 
TAPE VERSION 


•*C3**»**** 

* ZT IN 
READ IOCS- 

TABLES TC 
IJXA-T6 AND 

* IJXA07 


INITIALIZE 
REG11 FCR 
* PRINTING 


E3 *. 

. X.: BIT*> ON 

•NO 


• ***E4 ******** 
INSERT 
MESSAGE 
A INTO 
PRINT BUFFER 




****F2«*»«**** 
INSERT 
MESSAGE 
B I NTC 

PRINT BUFFER 


BIT1 ON 
’•NO 


•X*. BIT2 ON 


••••G4**«***«* 
INSERT 
MESSAGE 
C INTO 
PRINT BUFFER 


•••eH2*«****** 
INSERT 
COMMENT 
D I NTC 
PRINT BUFFER 


BIT3 ON -*X. 


J 3 *. 

. X*I* BIT4 ON 

*”»NO 


•*•**J4*****•*• 

* INSERT 

* COMMENT 

X* E INTO 

* PRINT BUFFER 

«•••••**•**•*•• 






GA. IJXG31 IJXG31 
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i*A3*****«»i 

COPRY 


INSERT THE 
MESSAGE INTO 
ONLINE 
BUFFER 


CHART GB. IJXG31 


COPRY 
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( 


****A3********* 

* IJXG4G * 


READ INPUT 
INTO 

B1 AND B2 


END-KEY 

* **INSERT** 

* END 

* INTO PRINT 

* BUFFER 


ASS.-INSTR 

**»**E3******** 

* USE THE 

* CODE BYTE TO 

* BRANCH INTO 

* THE CORRESP- 

* SUBROUTINE 


< 


* C3 * 


CALL 

PHASE 

G55 


MACH.-INST 

* DETERMINE* 

* THE INSTRUCT. 

* FORMAT 


**«*F4******* *** 
TRANSLATE * 
WITH THE * 

CORRESPONDING * 
VECTOR * 

*************** 


•***G4********** 
INSERT LABEL, * 
LOCATION, * 
HEXADECIMAL * 
CODE,MNEMO- * 
NIC * 


•****H4******* 

* INSERT THE 

* OPERANDS 


•*•*•••**•******* 


X 

* C3 * 

* * 
*•*• 


CHART GF. IJXG40 


GENERAL CHART 
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CHART 


jC" 


***A3********* 

IJXG40 


INITIALIZE 
Rll FOR 
* PRINTING * 
*********** 


C3 *. 

LISTX 8IT 
ON 

*’*YES 


IJKGI * 

READ INPUT 

INTO * 

* B1 AND B2 * 


CALL 

PHASE 

G55 


**»*F3******** 

L0C=0 
POI = B1 
RN = RI1+45 


CALL 

PHASE 

G31 


**G3******* 


SUPERVISE 
THE INPUT— 
* BUFFERS 


PRINT 

THE 

LINE 


TEST 
BYTE AT 
POI 


COMMENT 
IN PRINT 
BUFFER 


PRINT THE 
CHARACTER 
STRING 


.*LINK-, *. **** 

NO .DECK- OR SYM-. YES * 
. BIT ON .*_X* C4 


ASS-INSTR. 

*****J4********** 
•SUBTRACT X CO * 

* FROM CODE * 

* BYTE AND * 

* MULTIPLY BY 4 * 

***************** 


***»*K4********** 

* BRANCH INTO * 

* THE CORRESP. * * 

* SUBROUTINE *-...X* 

♦VIA BRANCH TAB.* * 

***************** 


GG. IJXG40 


IJXG40 ill 


/f 
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t 



MASCF. INST X 

*«*«*g3»***** 

* LOCAT 

* INSERT THE 

* LOCATION 

* COUNTER 


TRANSLATE * 
THE CODE * 
T 6 INTO Rll + 9* 


.* YES 
E A *. 

.X*I RS-INSTR. 


..X« TRANSLATE 

* THE 2.OPERAND 

* INTO Rll+14 


i 


TRANSLATE 
AND INSERT 
THE REGISTERS 


■»***G3-»******* 
TRANSLATE 
CODE BYTE 
WITH RR2 AND 
INSERT THE 
MNEMONIC 


F5 *. 

RX-INSTR. 

“ * NO 


■k**HS******* 
INSERT THE 
REGISTER 
INTO PRINT 
BUFFER AT 
Rll+45 


»K2*** 
POI + 


INSERT THE 
IMMEDIATE 
CONSTANT 
AT R11+45 


X 

K3*»*** 

ZPRNT 

PRINT 

THE 

LINE 


INSERT THE 
REGISTER IN 
THE FORM 
R1 »R2 


CHART GH® IJXG40 


IJXG4G i 2) 
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CHART 


** *»*B3********** 

* TRANSLATE * 

* CODE BYTE * 

* WITH S12 AND * 

* INSERT MNEMONIC* 


* TRANSLATE * 

* CODE BYTE * 

* WITH RX2 AND * 
•INSERT MNEMONIC* 

* * 
***************** 


*. SI-INSTR. 

'■"•ML' 


* TRANSLATE 

* THE IMMEDIATE 
•CONST.(RI1+11) 


.*.X* 




***«D4********* 
INSERT FIRST 
REGISTER 
POLL.BY COMMA 
AT Rll+45 


***E2******** 
INSERT 
X3DISPLa( I 
AT RN 


*****E5******** 

* INSERT INDEX 

* REGISTER AND 
X* COMMA , 

* RN+2 


»*F1******* 
INSERT THE 
BASE REG 
AT RN+6 


.*. BASE-REG 

*. -o 




INSERT * 

NAME AND * 

MODIFIER * 

**************** 




*YES 


*YES 

* Bl* 

X 

*G1*******H 

»** 

X 

*»***G2********** 

X 

*****G3********** 

X 

•****G4********** 



INSERT THE 
IMMEDIATE 
CONSTANT 
AT RN+9 


INSERT THE 
IMMEDIATE 
CONSTANT 
AT Rll+51 


INSERT THE 
IMMEDIATE 
CONSTANT 
AT RN+9 

************ 


PRINT 

THE 

LINE 


*****J3******* 


INSERT 
NAME AND 
MODIFIER 


H4 *. 
INDEX = 

*'*NG 


*•*J4********** 
INSERT * 

INDEX-REG * 
IN BRACKETS * 


********* 


X 


61. IJXG40 


IJXG40(3) 


464 































*GJ * 
* El* 


***B1******* 

INSERT 
CISPLACEM. 
AT RN + 4 


D1 *. 

BASE=C 


***E1******* 
INSERT THE 
EASE 

REGISTER 


***D4*«******* 




**E4********** 
INSERT * 

MNEMONIC 
AT Rll+39 * 


t***F3******** 
INSERT THE 
DISPLACEMENT 
AT RN 


i************** 


**G2**«***«* 
INSERT L 
IN BRACKETS 
AT RN+7 


**H2***»*»** 

RN+1C 


INSERT LI 
IN BRACKETS 
AT RN+7, 
RN+9 


*J2 ***** 
INSERT 
BASE 


*K2**«* 

RN+3 


*************** 


INSERT LI 
IN BRACKETS 
AT RN+1, 
RN+3 


*****K4********** 

* INSERT A * 

* COMMA AT * 

X* RN *X 


****H5********** 
INSERT L * 
IN BRACKETS * 
AT RN+1 * 


****«J5********** 
* * 

* RN+4 * 


*************** 


CHART GJ. IJXG40 


IJXG40 (4) 
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/f" 

V. 


INSERT 
NAME AND 
MODIFIER 


**INSERT*THE** 
DISPLACEMENT 


*«Cl31*«**** 
INSERT L2 
IN BRACKETS 
AT RN+1 


PRINT 

THE 

LINE 


*k-*D3**-»-»** *■* 
INSERT BASE 
IN BRACKETS 
AT RN+8 


***D4******** 
INSERT L2 
IN BRACKETS 
AT RN+8 


E4 *. 
BASE^O 

" *NC 


**»F4*****«* 
INSERT , ) 
AND BASE 
AT RN+10 


V 


CHART GK. IJXG40 


IJXG40 (51 
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s*-**Al***** 

« LQCAT 


STORE 
LQC AT 
LOCO 


*LABELFIELD *. YES 


* TRANSLATE 

* LOC.COUNTER 
•INTO PRINT 8UF. 


*D1«**** 

RETURN 


INSERT L 
AT R11+30 
AND QUOTE 
AT Rll+36 


CLEAR 

STACK 

LAF1 


CHART GL « IJXG40 


LOC 9 LAB 
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CHART 




****A2********* 


****A5 ********* 


TRANS 


CHAMG 




X 

X 

*****B2********** 

•****B5*••**•*•*• 

* R3=B, * 

* COMPLEMENT * 

* UNPACK THE 4 * 

* THE « 

* BYTES AT RL * 

* MODIFIER * 

* INTO THE 

* HALFWORD * 

* HCRKAREA B * 

• • 


X 






X 



C2 

*••**03********** 

»****C5******** 



.*IS THE *- 

* SUBTRACT 9 


* RESTORE 



-* LEFTMOST *- NG 

* FRCM BYTE 


* THE MODIFIER 



....X*. BYTE A .*. 

_X» AT R3 

* 

* AT RB+2 



*. DIGIT .* 


* 

* 



*. - * 


* 

* 



. * 




* « 


*YES 

X 






. *. 

X 




t Dl*i«******* 

D2 *. 

****#D3********** 

X 


* 

.♦POINTS ». 

* INSERT A 


**»*D5******** 

• 

* 

NO .* R3 ON THE *. 

* ZQNc C 


• 

• 

R3+1 *X_ 


....* IN FRONT 


* RETURN 








* 

*. .* 

» 



* 


*. . * **************** 
*YES 


f***E 2* ******** 
MOVE FROM 
B INTO THE 
PRINT BUFFER 


****F2********* 
* RETURN 


/T 

V,. 


GM. 1JXG40 


TRANS* CHAMO 
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c 




CHART GN. IJXG40 TRA, NAME 
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#A1****** 

TRANSLS 


*B1 »***«• 
TL S = 1 


*#D1**#** 

RETURN 


* D2 *” 
T LS =0 

* *NC 


**F2**««*** 
INSERT LI 
IN FRONT 
OF L2 


**H2*-» 
INSERT 
Ll-1 AT 
Rll + 11 


* J2« 
RETURN 




TRANSLATE 

SECOND 

REGISTER 


TRANSLATE 
THE FIRST 
REGISTER 


****D5« 

INSERT FIRST 
REGISTER 
AT Rll+11 


*E5****» 

RETURN 


CHART GO. IJXG40 


TRANSL*TRANSLS tTRANSR 
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CHAR 


LENGTH OF 
CHARACTER 
STRING IN 


C3 * 
RX=Q 


«**C4****» 

RETURN 


*D3*****« 
INSERT 
xaon033 
AT LAFI 


***F2«*****« 
SET SWITCH 
CHARSWI CN 


RY-RX+RXMCD32 


RX-32 
LOC+32 
POI +32 


** Jl***»* 
RETURN 


INSERT 

LOCATION 

COUNTER 


J3 *. 
RX GT 32 


*** 

INSERT 32 
CHARACTERS 
AND FOLLOW. 
QUOTE 


***K2******* 
INSERT RX 
CHARACTERS 
AND FGLL. 
QUOTE 


READ 

NEW 

INPUT 


CHARI GP• IJXG40 


CHAR 
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*»A2**»**+* 

DCV 

««•*•«*•**« 


**B2********* 

INSERT 

V(N3 

AT Rll+45 


**•*•****«*«• 


*A3**«« 

OCA 


««****«»»**** 


*«B3******« 

INSERT 

ACN3 

AT Rll+45 


*»*C3**+* 

RN=0 

N=4 


»A4***»****« 
CCAL3 * 

************ 


**B4******* 
INSERT 
AL3(N3 
AT Rll+45 


*************** 


C4 *. 

DCVL3 


AT Rll+45 


TRANSLATE 

THE 

NAME 


*«*•*»**« 


»*E3 
RN+R11 
INSERT A 
QUOTE AT 
RN + 53 




F3 

‘modifier 


AT RN+54 


«»G3***»****** 
INSERT A * 

> * 

AT RN+54 * 


COMPLEMENT 

THE 

MODIFIER 


PRINT 

THE 

LINE 


•*H2***** 

RETURN 




INSERT * 

THE * 

LAEEL * 

************* 


TRANSLATE 

THE 

OFFSET 


TRANSLATE 

THE 

MODIFIER 


***J4**«***« 
INSERT 2 
BLANKS AT 
Rll+9 AND 
THE OFFSET 
AT Rll+11 


INSERT 

LOCATION 

COUNTER 


V 

CHART &Q . IJXG40 DCV* DCA* DCAL3 
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***A1 


***A5 * 


**B5»*****« 
INSERT DS 
AT Rll+39 
AND CL AT 
Rll+45 


***C1******* 

INCREASE 
LQC EY THE 
LENGTH 


TRANSLATE 
AND INSERT 
THE LENGTH 




INSERT THE 
LOCATION 
COUNTER 




INSERT * 

DC * 

AT Rll+39 *X. 


»***F2**«* 

RX-8 


PRINT 

THE 

LINE 


G1 * 
RX GT 


*»G2**** 

R3=8 


TRANSLATE 
8 BYTES OF 
THE CONSTANT 


*G5****» 

RETURN 


■*H1****» 

R3=RX 


TRANSLATE 

THE 

CONSTANT 


**K1*«*<****« 
POI+L+4 


PRINT 

THE 

LINE 


*K3»**** 

RETURN 


CHART GR. IJXG40 


OCX,DSL 
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****A2***** 
* LABEL 


***A3********* 

PROCE * 


*B1******** 

INSERT 

L3FFFF2 

STATIC 

STORAGE 


PRINT 

THE 

LINE 


*D1******** 

RETURN 


•****C2******** 

* MOVE THE 

* LABEL TC 

* LAFI 


**************** 


**** 02 ********** 

* 

POI+4 * 

* 
* 

**************** 


***C3******** 
INSERT THE 
STATEMENT 
NUMBER IN 
REGISTER R1 


•*D3******«**« 
P0I=PQI+6 *X.« 


•*E2***«* 

RETURN 


ST.NU. 
LOWER OR 
. EQUAL 


****G3*»******** 

CONVERT * 
STATEMENT NU. * 
TO DECIMAL * 


**B4********* 
INSERT 
2BEGIN OF 
BLOCKS 


•****C4******** 

* MOVE THE 

* HW AT POI+4 

* TO LAFI 


**«*****•••**•**• 


TRANSLATE 

THE 

BLOCK-NUMB. 


***«C5********* 
• ENDBL 


•»***D5***>*** 

* INSERT 

* SEND GF 

* BLOCKS 

* AT Rll+39 


INSERT 

LOCATION 

COUNTER 


********** 


****E5******* 
PC I+4 


V 


TRANSLATE 
STATEM.NU. 
INTO DWB 




MOVE ST.NU. 
TO R11+1G8 
AND AVOID 
LEADING ZEROS 


*****K3******* 

* INSERT 

* SST ATEMENT 

* NUMBERS 

* AT Rll+16 

************** 


PRINT 

THE 

LINE 


**H4* 
RETURN 


CHART GS. IJXG40 


LABEL* PROCE* ENDBL 
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«**A3***** 


»***B3* 
EVALUATE THE 
ADDRESS OF 
THE ENTRY 
IN THE BLOCK- 
TABLE 


TRANSLATE 
THE LENGTH 
OF DSA 


X 

*#03«***** 
INSERT 
LEADING 
ZEROS 
AT Rll+9 


X 

***E3******* 

INSERT DC 
AT Rll+39 


X 

**F3******* 

INSERT 
LENGTH OF 
BLOCK 
AT Rll+45 


X 

*G3*»**» 

TRANS 


INSERT 

LOCATION 

COUNTER 


«•••J3******««* 


INSERT 

LABEL 


*K5****» 

RETURN 


CHART GT. IJXG40 


DCF 
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IJXG55 


**B3*****-»* 
PUT THE 
CARDS ON 
SYSLNK IF 
DESIRED 


****C3*********< 

PUNCH THE 
CARDS IF 
DESIRED 




***D3****»**»*« 
PRINT THE * 
ESD-CARDS * 
IF DESIRED * 


««*••£ 3 *•****-**•»»* 

» PRINT THE * 
* BLOCKTABLE * 


**•*•»***•***•••» 


X 

•*F3«****** 
PRINT THE 
FINAL 
COMMENT 



CHART HA. IJXG55 


FINOLH GENERAL) 
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****A2********* 

* IJXG55 * 


**B2« 
INITIALI¬ 
ZATION 


**C1****** 
SET A 
SWITCH 
(SYM) TO 
ONE 


C2 *- 
.*IS THE * 
* SYM-BIT 
ON 


D3 *. 
.*IS THE * 
* DECK-BIT 
ON 


********* 


PUT ALL CAROS 
ON SYSGOO, 
PRINT ESC 


»**F1*****»* 

SET THE 
LINKAGE 
ED.PERM. 
INDIC.-BIT 


E2 *. 
.*IS THE *. 

* DECK-BIT * 
ON 


.* PUNCH AND PUT 
♦CARDS ON SYSOO 
* PRINT ESC 


PUNCH ALL 
CARDS AND 
PRINT ESD 


********** 


PRINT THE 
BLOCKTABLE 
(IF SYM ON) 




»*F4«****** 
PRINT THE 
FINAL 
COMMENT 


CHART HB. IJXG55 IJXG55 
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/iT 


***B1******* 
RO EQ 320, 
R1 EQ EBU, 
R2 EQ ABU, 
CPO EQ ABU 


**C1******* 

* IJKMN * 

MOVE FROM 
* EBU TO ABU * 
WITH L EQ 320 


•«A4****** 

PLI 

********** 


* GET A *X_* B4 * 

* RECORD INTO * * * 

* ABU * **** 


PUT THE 
RECORD ONTO 
IJSYSLN 


01 


NC 

EQ 0 

***. 



*YES 


**** 02 ******** 
RO EQ 1, 

RI EG EBU 
R2 EQ ZTAB16 


*****E1********** 
• * 

* NCI EQ 1 * 


***FI******* 

RETURN 

************ 


****F2*»»* 

NC-1 


**************** 


E4 *. 

SYM EQ 0 

*. .* 
*, „ * 

♦ YES 


*F4********* 
CP0+80 


. *NG 
E5 «. 
.* BYTE * 
.* AT CPO+2 
.X*. EQ C S 


V 


*J4***»* 

RETURN 


CHART HC. IJXG55 


GET, PLI 


l 

X 
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••**A2 


CHART 


GET A 

RECCRD INTO 
ABO 


*X....* B2 


PUT THE 
RECORD ONTO 
IJSYSLN 


02 *. 

D2 *...» X*I* SYM EQ 0 


.* BYTE * 
.* AT CPO+2 
.X*. EQ C S 


*E4****-» 

CP0+8G 


**F2***»* 

RETURN 


X 

G4* * * *. 

CN1 EQ 0 I* 


*N0 



RETURN 




HO. IJXG55 LNK 


479 



















CHART 


/* 

V. 




X* GET A * 

* RECORD INTO * 

* ABO » 


X 

««** *C 2 ********* * 
**** * PUNCH * 

* C2 *. .. .X* PUNCH A * 

* * * CARD * 

**** * * 

***************** 


D2 *. 

SYM EQ 0 


E2 *- 
-* BYTE *. 

AT CPC+2 *. NC 

eq casa .*... 


*•***03********** 

.X* CPO + 80 *. 

* * 

* * 

***************** 


*. YES * 

CN1 EQ 0 ...X* B2 


•••♦FA********* 
* RETURN 
*************** 


HE. IJXG55 PCH 
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**A2********* 
PRT * 


GET A 

RECORD INTO 
ABO 


.* BYTE *. 

AT CPO+2 *. YES 
.X*. EQ cass -*- 


*D2* 
CPQ+80 


* NC »* 

C2 CPO EC EBU 


c 


»*G2***»* 

RETURN 



CHART HF. IJXG55 PRT 
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**»*A3********* 
PRINT * 


INSERT THE 
NUMBER OF 
INFORMATION 
BYTES INTO RX 


*****C3******** 

* INSERT THE 

* ESIC-NUMBER 

* FROM CPO+14 

* INTO RY 


***D3******** 
MOVE THE 
EXTERNAL 
SYMBOL FROM 
CPC+16 TC 
Rll + 1 


****E1**»***** 
INSERT ER 
INTO THE 
PRINT-EUFFER 
AT RI1+12 


LD-ENTRY .*X. 


***»E4******** 
INSERT SD 
INTO THE 
PRINT-BUFFER 
AT Rll+12 


STORE RY 
INTO THE FH 
AT RY S 


TRANSLATE 
RYS INTO 
PRINT-EUFFER 


****F2******** 
INSERT LD 
INTO THE 
PRINT-BUFFER 
AT Rll+12 


* TRANSLATE THE 

* HW AT CPO+30 

*INTG PRINT-BUF. 


*G3 


X 

SWI = 1 


TRANSLATE THE 
3BYTES AT 
CPO+29 


STORE RY 
INTO THE 
HW AT RYS 


TRANSLATE 
THE 3 BYTES 
AT CPO+25 


TRANSLATE 
RYS INTO 
PRINT-BUFFER 


„X*. RY=CaCT-.a 


CP0+I6 *....X* D3 


**K2***«*»* 

SWI=0 


************** 

...* J4 * 

**K4* ********* 
RY+I * 


ff 

V 


CHART HG. IJXG55 PRINT 
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• ••Al 

LINKS 


••Bl**><*>* 

RO EQ 322 
R1 EQ AHQ 
R2 EQ 05 


MOVE FROM 
AMO TO B5 
WITh 322 


PUT THE 
RECORC ONTO 
* IJSYSLN + 


* UNPACK THE * 

* 4 BYTES AT * 
*(R1)IN WORKAREA* 

* B OF LENGTH 7 * 


*C4* 

N EQ 0 


.* BYTE *. 

.* AT B+N GT *. YES 
• X*. X F9 _ 


*E1* 
RETURN 


N EQ S .*X. 


SUBTRACT 
9 FROM BYTE 
AT B+N 


«**E5«****** 
INSERT THE 
ZONE 


MOVE FROM 
B TO {RD) 
WITH LENGTH 
2* <R2) 


*G4* 
RETURN 


MOVE FROM 
CPQ TC 
(RIO) WITH 
LENGTH 80 


«K2***** 

RETURN 


CHART HH. iJXG55 


LINK* TRA, PUNCH 
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****A1********* 

* BLOCKT * 

* * 

*•*••*•**•***** 


•***A4********* 

* PRIBLO * 


INSERT AND 
PRINT THE 
* SUBHEADER * 
*********** 


***C1********* 
CPQ=IJKMBS 
RX=IJKMBC 
RY=1 


TRANSLATE 
BLOCKNUMBER 
INTO Rll+3 


TRA 

* TRANSLATE * 

* LENGTH OF * 
*DSA INTO Rli+13* 


PRINT THE 
CURRENT 
D5A-LENGTH 


*E1********** 


E2 *. 
.X*I* RY GT RX 


»***E4****» 
* RETURN 


*F2****» 

RETURN 


*********** 


CHART HI* IJXG55 


BLOCKT * PRIBLO 
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